From 8d6bf58510fb39efa6824cdc902a6527a90e702b Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Sat, 30 Jan 2016 11:25:58 -0800
Subject: Normalize spelling of mkpf.

---
 src/interp/br-op2.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/br-op2.boot')

diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot
index 3d576881..9c279f8e 100644
--- a/src/interp/br-op2.boot
+++ b/src/interp/br-op2.boot
@@ -544,7 +544,7 @@ opPageFastPath opstring ==
   mmList := getAllModemapsFromDatabase(op,nil) or return nil
   opAlist := [[op,:[item for mm in mmList]]] where item() ==
     [predList, origin, sig] := modemap2Sig(op, mm)
-    predicate := predList and MKPF(predList,'AND)
+    predicate := predList and mkpf(predList,'AND)
     exposed? := isExposedConstructor opOf origin
     [sig, predicate, origin, exposed?]
   opAlist
-- 
cgit v1.2.3