diff options
Diffstat (limited to 'src/interp/wi2.boot')
| -rw-r--r-- | src/interp/wi2.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index 85969666..46075fdb 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -542,7 +542,7 @@ compFormWithModemap1(form,m,e,modemap,Rep2Dollar?) == not (target':= coerceable(target,m,e)) => nil markMap := map map:= [target',:rest map] - [f,Tl,sl]:= compApplyModemap(form,modemap,e,nil) or return nil + [f,Tl,sl]:= compApplyModemap(form,modemap,e) or return nil --generate code; return T:= @@ -605,7 +605,8 @@ compElt(origForm,m,E) == compForm(origForm,m,E) pause op == op -compApplyModemap(form,modemap,$e,sl) == +compApplyModemap(form,modemap,$e) == + sl := nil [op,:argl] := form --form to be compiled [[mc,mr,:margl],:fnsel] := modemap --modemap we are testing |