From af88601ee70f6d03a98edb0374d682ce19343293 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 5 May 2010 02:06:21 +0000
Subject: 	* interp/compiler.boot: Miscellaneous cleanup. 	*
 interp/g-opt.boot: Likewise. 	* interp/functor.boot: Likewise. 	*
 interp/nrunfast.boot: Likewise. 	* interp/wi2.boot: Likewise.

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

(limited to 'src/interp/wi2.boot')

diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot
index 31983811..0e54854f 100644
--- a/src/interp/wi2.boot
+++ b/src/interp/wi2.boot
@@ -437,7 +437,7 @@ applyMapping([op,:argl],m,e,ml) ==
         getAbbreviation($op,#rest $form)
       [op',:argl',"$"] where
         op':= INTERN STRCONC(encodeItem nprefix,";",encodeItem op)
-    ['call,['applyFun,op],:argl']
+    ["call",['applyFun,op],:argl']
   pairlis := pairList(argl',$FormalMapVariableList)
   convert([form,SUBLIS(pairlis,first ml),e],m)
  
-- 
cgit v1.2.3