diff options
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" |