aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/define.boot6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot
index 6ca0a3ec..72026f02 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -724,10 +724,6 @@ noteExport(db,form,pred) ==
clearExportsTable() ==
$exports := nil
-makePredicate l ==
- null l => true
- mkpf(l,"and")
-
--% FUNCTIONS WHICH MUNCH ON == STATEMENTS
++ List of reserved identifiers for which the compiler has special
@@ -1982,7 +1978,7 @@ compDefineCapsuleFunction(db,df is ['DEF,form,signature,body],
sayBrightly ['" compiling ",localOrExported,
:bright $op,'": ",:formattedSig]
- pred := makePredicate $predl
+ pred := mkpf($predl,'and)
noteCapsuleFunctionDefinition(dbCompilerData db,$op,signature,pred)
T := CATCH('compCapsuleBody, compOrCroak(body,rettype,e))
or [$ClearBodyToken,rettype,e]