diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-19 13:18:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-19 13:18:04 +0000 |
| commit | b893a938b4051bc30a9c44bdcf6000bff11969c4 (patch) | |
| tree | e015989876cff9b1b185cc00a55bfc92be277961 /src/interp/define.boot | |
| parent | c6179efd4a1f1770d4d31415582eabebbe2ab6a0 (diff) | |
| download | open-axiom-b893a938b4051bc30a9c44bdcf6000bff11969c4.tar.gz | |
* interp/newfort.boot: Likewise.
* interp/define.boot (orderBySubsumption): Fix thinko.
* interp/boot-pkg.lisp: Use BOOTTRAN package. Don't import names
individually.
* boot/utility.boot: New.
* boot/translator.boot (exportNames): Fix thinko.
* boot/tokens.boot: Add charEq? and scalarEq? builtiin functions.
* boot/ast.boot (bfMember): Generate call to symbolMember? for
membership tests for symbols.
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 352d1aef..c1e34171 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -204,7 +204,8 @@ makeCompactDirect1(op,items) == orderBySubsumption items == acc := subacc := nil for x in items repeat - not $op in '(Zero One) and x is [.,.,.,'Subsumed] => subacc := [x,:subacc] + not ($op in '(Zero One)) and x is [.,.,.,'Subsumed] => + subacc := [x,:subacc] acc := [x,:acc] y := z := nil for [a,b,:.] in subacc | b repeat |