diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-25 02:29:19 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-25 02:29:19 +0000 |
commit | 20ce2990a91a76c43ef0d255baf7a773291d6779 (patch) | |
tree | eea46c5e757916d7551646fdc964114052b8cb7a /src/interp/buildom.boot | |
parent | 24b9bd5e93048c335fa21ff5a17dc33d4a6a57ae (diff) | |
download | open-axiom-20ce2990a91a76c43ef0d255baf7a773291d6779.tar.gz |
* interp/sys-globals.boot ($compCount): Remove.
* interp/spad.lisp (knownEqualPred): Move to buildom.boot
(hashable): Likewise.
Remove junk.
* interp/debug.lisp: Remove junk.
* interp/vmlisp.lisp: Likewise.
Diffstat (limited to 'src/interp/buildom.boot')
-rw-r--r-- | src/interp/buildom.boot | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot index d6437cd5..9856c5e6 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -308,6 +308,15 @@ lookupInTable(op,sig,dollar,[domain,table]) == someMatch => lookupInAddChain(op,sig,domain,dollar) nil +knownEqualPred dom == + fun := compiledLookup("=",[$Boolean,"$","$"],dom) => + getFunctionReplacement BPINAME first fun + nil + +hashable dom == + -- FIXME: there should test for OIL opcodes. + symbolMember?(knownEqualPred dom,'(EQ EQL EQUAL)) + --% Record -- Want to eventually have the elts and setelts. -- Record is a macro in BUILDOM LISP. It takes out the colons. |