diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-10 02:53:03 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-10 02:53:03 +0000 |
| commit | 065a1bd3b0facc445cccd066b47a1801abd6f0aa (patch) | |
| tree | c27c02c0c0dd7a4f343bdb39101806798ab798cb /src/interp/g-opt.boot | |
| parent | 9232685eacc1349c3930be22040f100935e8f6d9 (diff) | |
| download | open-axiom-065a1bd3b0facc445cccd066b47a1801abd6f0aa.tar.gz | |
Clean up
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index af9fb966..84fd563e 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -124,7 +124,7 @@ subrname u == nil changeThrowToExit(s,g) == - atom s or first s in '(QUOTE SEQ REPEAT COLLECT %collect %repeat %reduce) => nil + atom s or s.op in '(QUOTE SEQ REPEAT COLLECT %collect %repeat %reduce) => nil s is ["THROW", =g,:u] => (s.first := "EXIT"; s.rest := u) changeThrowToExit(first s,g) changeThrowToExit(rest s,g) |