aboutsummaryrefslogtreecommitdiff
path: root/src/interp/nrunfast.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/nrunfast.boot')
-rw-r--r--src/interp/nrunfast.boot9
1 files changed, 0 insertions, 9 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot
index 785682e4..5d3fba7c 100644
--- a/src/interp/nrunfast.boot
+++ b/src/interp/nrunfast.boot
@@ -37,7 +37,6 @@ namespace BOOT
module nrunfast where
getOpCode: (%Symbol, %Vector %Thing, %Short) -> %Maybe %Short
- builtinConstructor?: %Symbol -> %Boolean
++
$doNotCompressHashTableIfTrue := false
@@ -494,14 +493,6 @@ 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 ==
- symbolMember?(s,$BuiltinConstructorNames)
-
++ Return true if the symbol `s' designates a generalized builtin
++ constructor, that is a builtin constructor or any operator we
++ deem as a constructor from the domain slot-filling machinery perspective.