aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-util.boot.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-util.boot.pamphlet')
-rw-r--r--src/interp/i-util.boot.pamphlet9
1 files changed, 0 insertions, 9 deletions
diff --git a/src/interp/i-util.boot.pamphlet b/src/interp/i-util.boot.pamphlet
index c0d785da..899cc18f 100644
--- a/src/interp/i-util.boot.pamphlet
+++ b/src/interp/i-util.boot.pamphlet
@@ -189,15 +189,6 @@ HasSignature(domain,[op,sig]) ==
makeInitialModemapFrame() == COPY $InitialModemapFrame
-addModemap(op,mc,sig,pred,fn,$e) ==
- $InteractiveMode => $e
- if knownInfo pred then pred:=true
- $insideCapsuleFunctionIfTrue=true =>
- $CapsuleModemapFrame :=
- addModemap0(op,mc,sig,pred,fn,$CapsuleModemapFrame)
- $e
- addModemap0(op,mc,sig,pred,fn,$e)
-
isCapitalWord x ==
(y := PNAME x) and and/[UPPER_-CASE_-P y.i for i in 0..MAXINDEX y]