diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-26 02:49:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-26 02:49:04 +0000 |
| commit | 4d2e94d7512864a3ef79698daa1b2b90b694b790 (patch) | |
| tree | c17bdf26fc40c47a09f4e9f1d208820f5784c5a6 /src/interp | |
| parent | 86f5b5568ab4013e6fd8575e16b01d9d1aa99e91 (diff) | |
| download | open-axiom-4d2e94d7512864a3ef79698daa1b2b90b694b790.tar.gz | |
* interp/g-opt.boot (optCond): Simplify newly built COND-expression.
Diffstat (limited to 'src/interp')
| -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 fceb3a2d..85bee73c 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -393,7 +393,7 @@ optSEQ ["SEQ",:l] == aft:= after(l,before) null before => ["SEQ",:aft] null aft => ["COND",:transform,'(%true (conderr))] - ["COND",:transform,['%true,optSEQ ["SEQ",:aft]]] + optCond ["COND",:transform,['%true,optSEQ ["SEQ",:aft]]] tryToRemoveSEQ l == l is ["SEQ",[op,a]] and op in '(EXIT RETURN THROW) => a l |