diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-04-25 17:20:33 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-04-25 17:20:33 +0000 |
| commit | 205e00352c8372e5a4bf59cde160dea017295b6e (patch) | |
| tree | 3f2fb95f37ebb66533a5f8463d5daa573055e496 /src/interp | |
| parent | 46254b227d3155c2abf6676e3642cbf2af2c1721 (diff) | |
| download | open-axiom-205e00352c8372e5a4bf59cde160dea017295b6e.tar.gz | |
* algebra/strap/PRIMARR.lsp: Remove.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/c-util.boot | 3 | ||||
| -rw-r--r-- | src/interp/sys-utility.boot | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index b16d52ef..cfb1b9da 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1026,7 +1026,8 @@ replaceSimpleFunctions form == optLET mutateLETFormWithUnaryFunction(form,"replaceSimpleFunctions") form is ["spadConstant","$",n] => null(op := getCapsuleDirectoryEntry n) => form - getFunctionReplacement op is ["XLAM",=nil,body] and atom body => body + getFunctionReplacement op is ["XLAM",=nil,body] + and isAtomicForm body => body -- Conservatively preserve object identity and storage -- consumption by not folding non-atomic constant forms. form diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 8cc18dc5..01a82d9b 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -70,7 +70,7 @@ getVMType d == STRINGP d => "%Thing" -- literal flag parameter case (d' := devaluate d) of Void => "%Void" - Identiifier => "%Symbol" + Identifier => "%Symbol" Boolean => "%Boolean" Byte => "%Byte" Character => "%Char" |