diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/compiler.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index c6ffa376..e0fae8b4 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -494,8 +494,7 @@ compArgumentsAndTryAgain(form is [.,:argl],m,e) == -- modemap with selector b form is ["elt",a,.] => ([.,.,e]:= comp(a,$EmptyMode,e) or return nil; compForm1(form,m,e)) - u := for x in argl repeat [.,.,e]:= comp(x,$EmptyMode,e) or return "failed" - u is "failed" => nil + +/[(e := T.env; 1) for x in argl | T := comp(x,$EmptyMode,e)] = 0 => nil compForm1(form,m,e) outputComp(x,e) == |