diff options
Diffstat (limited to 'src/boot/ast.boot')
-rw-r--r-- | src/boot/ast.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 719d583d..3e0fdc5d 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -411,7 +411,9 @@ bfLp1(iters,body)== value := value = nil => "NIL" first value - exits := ["COND",[bfOR exits,["RETURN",value]],['T,nbody]] + exits := + exits = nil => nbody + ["COND",[bfOR exits,["RETURN",value]],['T,nbody]] loop := ["LOOP",exits,:sucs] if vars then loop := ["LET",[[v, i] for v in vars for i in inits], loop] |