aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGabriel Dos Reis <gdr@axiomatics.org>2016-01-30 19:30:10 -0800
committerGabriel Dos Reis <gdr@axiomatics.org>2016-01-30 19:30:10 -0800
commit04e645dc02abeaeb3102ab9c6bd149521b1282bb (patch)
treebad71e3e95f23ee4922d77a3973729b02ec35a51 /src
parenta99fade73c79d570956f95cb32a6b09913cca7cb (diff)
downloadopen-axiom-04e645dc02abeaeb3102ab9c6bd149521b1282bb.tar.gz
compDefineCapsuleFunction: Tidy.
Diffstat (limited to 'src')
-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]