diff options
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 |