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 ddcbb16e..f09d5b67 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -374,7 +374,7 @@ NRTdescendCodeTran(u,condList) == fn is ['dispatchFunction,fn'] => fn' fn nil --code for this will be generated by the instantiator - u is ['COND,:c] => + u is ['%when,:c] => for [pred,:y] in c|y repeat NRTdescendCodeTran(first y,[pred,:condList]) u is ['PROGN,:c] => for x in c repeat NRTdescendCodeTran(x,condList) nil @@ -408,7 +408,7 @@ buildFunctor($definition is [name,:args],sig,code,$locals,$e) == -- (PROGN (%LET Rep ...) -- (: (ListOf x y) $) -- (CodeDefine (<op> <signature> <functionName>)) --- (COND ((HasCategory $ ...) (PROGN ...))) ..) +-- (%when ((HasCategory $ ...) (PROGN ...))) ..) -- $locals: list of variables to go into slot 5, e.g. (R Rep R,1 R,2 R,3 R,4) -- same as $functorLocalParameters -- this list is not augmented by this function @@ -693,7 +693,7 @@ NRTputInHead bod == nil NRTputInHead fn bod - bod is ["COND",:clauses] => + bod is ['%when,:clauses] => for cc in clauses repeat NRTputInTail cc bod bod is ["QUOTE",:.] => bod |