diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-29 11:08:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-29 11:08:52 +0000 |
| commit | 3e7bfcb3d6be1e4d7ccf3c5db0a78bbc75bad7f7 (patch) | |
| tree | 61c021b85301e7c4fe4002b4938c78151f7fadca /src/interp/i-intern.boot | |
| parent | 0e1d7b240d69f6c332b27faeca503589139791ab (diff) | |
| download | open-axiom-3e7bfcb3d6be1e4d7ccf3c5db0a78bbc75bad7f7.tar.gz | |
* interp/i-funsel.boot: Support middle end logical operators.
($constructorExposureList): Remove as unused.
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 5700924c..2f5c3290 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -307,7 +307,7 @@ flagArguments(op, nargs) == signatureFromModemap m == [sig,pred,:.] := m pred = true => rest sig - first pred = "AND" => + pred.op in '(AND %and) => sl := [[a,:b] for [.,a,b] in rest pred] rest SUBLIS(sl,sig) |