diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index 17d630b4..c2c55b14 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1148,10 +1148,10 @@ replaceSimpleFunctions form == optLET mutateLETFormWithUnaryFunction(form,"replaceSimpleFunctions") form is ["spadConstant","$",n] => null(op := getCapsuleDirectoryEntry n) => form - getFunctionReplacement op is ["XLAM",=nil,body] - and isAtomicForm body => body -- Conservatively preserve object identity and storage -- consumption by not folding non-atomic constant forms. + getFunctionReplacement op isnt ['XLAM,=nil,body] => form + isAtomicForm body or isVMConstantForm body => body form -- 1. process argument first. for args in tails rest form repeat |