diff options
author | dos-reis <gdr@axiomatics.org> | 2009-06-15 18:15:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-06-15 18:15:17 +0000 |
commit | 1d8dbf312fdc2165430bfc73939c45f458db7f50 (patch) | |
tree | 823a96f0806a1e9d05a418425a30418959508d37 /src/interp/define.boot | |
parent | e8129483c25d61df0ccb18afd29b93844c814709 (diff) | |
download | open-axiom-1d8dbf312fdc2165430bfc73939c45f458db7f50.tar.gz |
* interp/define.boot (spadCompileOrSetq): Tidy.
* interp/fnewmeta.lisp (PARSE-Sexpr1): Disable negative integers
in data. A facility not actually used in Spad code.
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 543450d9..48225fb2 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1268,7 +1268,7 @@ spadCompileOrSetq (form is [nam,[lam,vl,body]]) == if vl is [:vl',E] and body is [nam',: =vl'] then LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ nam'] sayBrightly ['" ",:bright nam,'"is replaced by",:bright nam'] - else if (ATOM body or and/[ATOM x for x in body]) + else if (isAtomicForm body or and/[isAtomicForm x for x in body]) and vl is [:vl',E] and not CONTAINED(E,body) then macform := ['XLAM,vl',body] LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ macform] |