diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 1e413c64..260d4fd1 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -334,7 +334,7 @@ descendCodeTran(db,u,condList) == null u => nil u is ['%list] => nil u is ['%store,['%tref,.,i],a] => - null condList and a is ['CONS,fn,:.] => + null condList and a is ['%closure,fn,:.] => u.first := '%list u.rest := nil domainRef(dbTemplate db,i) := @@ -379,7 +379,7 @@ stuffSlot(dollar,i,item) == vectorRef(dollar,i) := item isnt [.,:.] => [symbolFunction item,:dollar] item is [n,:op] and integer? n => ['newGoGet,dollar,:item] - item is ['CONS,.,['FUNCALL,a,b]] => + item is ['%closure,.,['FUNCALL,a,b]] => b is '$ => ['makeSpadConstant,eval a,dollar,i] sayBrightlyNT '"Unexpected constant environment!!" pp devaluate b |