diff options
author | dos-reis <gdr@axiomatics.org> | 2010-07-18 05:43:52 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-07-18 05:43:52 +0000 |
commit | 3467029153bc8d2115fb961eb5e4e995d62034f0 (patch) | |
tree | 749cf4c97081e5013fb31b1c5af16262da65327a /src/interp/interop.boot | |
parent | 6f895d0aed70b3a0ff95f19a5f3e4472c65bfd0d (diff) | |
download | open-axiom-3467029153bc8d2115fb961eb5e4e995d62034f0.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/interop.boot')
-rw-r--r-- | src/interp/interop.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index eefb82ea..d260b7cb 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -583,7 +583,7 @@ newHasCategory(domain,catform) == lazyMatchAssocV(catform,auxvec,catvec,domain) --new style getCatForm(catvec, index, domain) == - NUMBERP(form := QVELT(catvec,index)) => domain.form + integer?(form := QVELT(catvec,index)) => domain.form form HasSignature(domain,[op,sig]) == |