diff options
author | dos-reis <gdr@axiomatics.org> | 2009-06-16 00:20:01 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-06-16 00:20:01 +0000 |
commit | 3853f26115f242232720abb5252978de20b72c01 (patch) | |
tree | e0a96b18cc5a91867bc99b4ade7e6345bf57f44e /src/interp/compiler.boot | |
parent | 1d8dbf312fdc2165430bfc73939c45f458db7f50 (diff) | |
download | open-axiom-3853f26115f242232720abb5252978de20b72c01.tar.gz |
Fix SF/2806053
* lisp/Makefile.in: Remove generated files when cleaning.
* interp/Makefile.pamphlet: Add executable extensions if appropriate.
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 43433524..9d79c3b3 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1224,7 +1224,7 @@ canReturn(expr,level,exitCount,ValueFlag) == --SPAD: exit and friends and/[canReturn(u,level,exitCount,ValueFlag) for u in expr] op = "LET" or op = "LET*" => or/[canReturn(init,level,exitCount,false) for [.,init] in second expr] - or canReturn(third expr,exitCount,ValueFlag) + or canReturn(third expr,level,exitCount,ValueFlag) systemErrorHere ['"canReturn",expr] --for the time being ++ We are compiling a conditional expression, type check and generate |