diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 260d4fd1..ab55362d 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -338,7 +338,7 @@ descendCodeTran(db,u,condList) == u.first := '%list u.rest := nil domainRef(dbTemplate db,i) := - fn is '%constant => a + fn is '%constant => a.args fn is ['%function,fn'] => fn' fn nil --code for this will be generated by the instantiator @@ -379,8 +379,8 @@ stuffSlot(dollar,i,item) == vectorRef(dollar,i) := item isnt [.,:.] => [symbolFunction item,:dollar] item is [n,:op] and integer? n => ['newGoGet,dollar,:item] - item is ['%closure,.,['FUNCALL,a,b]] => - b is '$ => ['makeSpadConstant,eval a,dollar,i] + item is ['%constant,[a,b]] => + b is '$ => ['makeSpadConstant,symbolFunction a,dollar,i] sayBrightlyNT '"Unexpected constant environment!!" pp devaluate b nil |