diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-02 01:02:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-02 01:02:57 +0000 |
commit | 1906e73ab030ad23f1f6269acfed69703c8c40d6 (patch) | |
tree | b00af81c96b09e67a5634aa0e21d3b9a9ea6419d /src/interp/nrunfast.boot | |
parent | 786cd98c9ab4543bb9d4a901a3d71497dd858aa5 (diff) | |
download | open-axiom-1906e73ab030ad23f1f6269acfed69703c8c40d6.tar.gz |
more cleanup
Diffstat (limited to 'src/interp/nrunfast.boot')
-rw-r--r-- | src/interp/nrunfast.boot | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index e5dff431..6691b34d 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -37,6 +37,7 @@ namespace BOOT module nrunfast where getOpCode: (%Symbol, %Vector %Thing, %Short) -> %Maybe %Short + builtinConstructor?: %Symbol -> %Boolean ++ $doNotCompressHashTableIfTrue := false @@ -493,9 +494,13 @@ lazyMatchArg2(s,a,dollar,domain,typeFlag) == --above line is temporarily necessary until system is compiled 8/15/90 --s = a +++ The collection of builtin category names and builtin domain names. +$BuiltinConstructorNames == + [:$CategoryNames,:$DomainNames] + ++ Return true if the symbol `s' designates a builtin constructor. builtinConstructor? s == - s in $BuiltinConstructorNames + symbolMember?(s,$BuiltinConstructorNames) ++ Return true if the symbol `s' designates a generalized builtin ++ constructor, that is a builtin constructor or any operator we |