diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-01-26 05:06:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-01-26 05:06:32 +0000 |
| commit | f739a0a8d77e564cf9a7853b0f135c99b45ff831 (patch) | |
| tree | fbd1d273b02e5e5829b43e69155502416d53cda8 /src/interp/nruncomp.boot | |
| parent | 5bcd66d747349ff167ffcd3953c95faf08aa8c1e (diff) | |
| download | open-axiom-f739a0a8d77e564cf9a7853b0f135c99b45ff831.tar.gz | |
* interp/compiler.boot (compForm1): Use %listlit form.
(compExpressionList): Likewise.
(compCons1): Likewise.
(compList): Likewise.
(compVector): Likewise.
* interp/g-timer.boot (timedEvaluate): Likewise.
* interp/wi1.boot: Likewise.
* interp/slam.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/i-object.boot: Likewise.
* interp/g-opt.boot (optMkRecord): Likewise.
(optRECORDCOPY): Likewise.
(optLIST): Remove.
(optListlit): New.
* interp/g-util.boot (optListlit): New. Expand %listlit forms.
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index b922c7cd..8674d9b8 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2010, Gabriel Dos Reis. +-- Copyright (C) 2007-2011, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -397,7 +397,7 @@ washFunctorBody form == main form where stmts = nil => nil rest stmts = nil => first stmts ["PROGN",:stmts] - x is ["LIST"] => nil + x is ['%listlit] => nil x buildFunctor($definition is [name,:args],sig,code,$locals,$e) == |