diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 23:26:51 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 23:26:51 +0000 |
| commit | fff23d752812e2ae22bebc21d24c42bb145a916e (patch) | |
| tree | ba0250e810180be3a25ca1c916c398ed5a248db9 /src/interp/wi1.boot | |
| parent | d1ae1fd7646c2b81c3d23752f6956c7db888e916 (diff) | |
| download | open-axiom-fff23d752812e2ae22bebc21d24c42bb145a916e.tar.gz | |
More cleanups
Diffstat (limited to 'src/interp/wi1.boot')
| -rw-r--r-- | src/interp/wi1.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index 759acbcf..c4ee9412 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -109,7 +109,7 @@ compJoin(["Join",:argl],m,e) == union("append"/[getParms(y,e) for y in rest x],parameters) where getParms(y,e) == atom y => - isDomainForm(y,e) => LIST y + isDomainForm(y,e) => [y] nil y is ['LENGTH,y'] => [y,y'] LIST y @@ -862,7 +862,7 @@ spadCompileOrSetq form == macform := ['XLAM,vl',body] LAM_,EVALANDFILEACTQ ['PUT,MKQ nam,MKQ 'SPADreplace,MKQ macform] sayBrightly ['" ",:bright nam,'"is replaced by",:bright body] - $insideCapsuleFunctionIfTrue => first backendCompile LIST form + $insideCapsuleFunctionIfTrue => first backendCompile [form] compileConstructor form coerceHard(T,m) == |