From 04e645dc02abeaeb3102ab9c6bd149521b1282bb Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Sat, 30 Jan 2016 19:30:10 -0800
Subject: compDefineCapsuleFunction: Tidy.

---
 src/interp/define.boot | 6 +-----
 1 file changed, 1 insertion(+), 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]
-- 
cgit v1.2.3