diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 3 |
1 files changed, 2 insertions, 1 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 |