diff options
author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-09 21:09:22 -0800 |
---|---|---|
committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-09 21:09:22 -0800 |
commit | ea62b3a837416bea218f7a52db80505b8d271dc3 (patch) | |
tree | f447656c1c397b881e6114cddb5ff0e3c020d473 /src/interp/i-resolv.boot | |
parent | 313768fe3869da54aadd7317179bd35a44f95de3 (diff) | |
download | open-axiom-ea62b3a837416bea218f7a52db80505b8d271dc3.tar.gz |
Every use of getDualSignature that does not ensure that builtin
constructors are handled before the call is a bug.
This patch fixes most the obvious and glaring places. Hopefully, the
remaining cases will be exercised when getDualSignature bypasses the
on-disk database mamouth.
Diffstat (limited to 'src/interp/i-resolv.boot')
-rw-r--r-- | src/interp/i-resolv.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-resolv.boot b/src/interp/i-resolv.boot index 3ef90e9d..e317de6d 100644 --- a/src/interp/i-resolv.boot +++ b/src/interp/i-resolv.boot @@ -341,7 +341,7 @@ resolveTTRed3(t) == (and/[member(x,a) for x in b] and "and"/[member(x,b) for x in a]) and a [(x isnt [.,:.] and x ) or ((not cs and x and not interpOp? x and x) or resolveTTRed3 x) or return nil - for x in t for cs in getDualSignature t.op ] + for x in t for cs in getDualSignature t.op ] -- FIXME: builtin ctor? interpOp?(op) == cons?(op) and |