diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-25 05:55:12 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-25 05:55:12 +0000 |
commit | dd99f144ce50c2c3d2a1e1685a2d74ff533f6535 (patch) | |
tree | 51dbaca6e9ae15b2dda5cf5ecab88655f629cbca /src/interp/g-opt.boot | |
parent | d08100e5c7cc7ebf2c30c490033f1ccd5b57fb86 (diff) | |
download | open-axiom-dd99f144ce50c2c3d2a1e1685a2d74ff533f6535.tar.gz |
* interp/g-util.boot: Implement expansion of %collect forms.
* interp/c-util.boot (middleEndExpand): Tidy.
* interp/g-opt.boot (changeThrowToExit): Don't look into %collect
forms.
* interp/i-map.boot (getUserIdentifiersIn): Factorize. Handle
%collect forms same as COLLECT forms.
(findLocalVars1): Likewise.
* interp/i-spec1.boot (evalCOLLECT): Now generate %collect forms.
(checkForFreeVariables): Factorize. Handle %collect forms same as
COLLECT forms.
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 0b5d7169..2717312a 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) => nil + atom s or first s in '(QUOTE SEQ REPEAT COLLECT %collect) => nil s is ["THROW", =g,:u] => (s.first := "EXIT"; s.rest := u) changeThrowToExit(first s,g) changeThrowToExit(rest s,g) |