diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 4c5c3b11..965c851f 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -129,7 +129,7 @@ NRTencode(x,y) == encode(x,y,true) where encode(x,compForm,firstTime) == -- enumeration constants are like field names, they do not need -- to be encoded. op = "Enumeration" => x - ["NRTEVAL",NRTreplaceAllLocalReferences COPY_-TREE lispize compForm] + ["NRTEVAL",NRTreplaceAllLocalReferences COPY_-TREE simplifyVMForm compForm] MEMQ(x,$formalArgList) => v := $FormalMapVariableList.(POSN1(x,$formalArgList)) firstTime => ["local",v] |