From aafe7ff59792af6125574114312d5fc9ed15b5b7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 15 Jun 2013 21:43:42 +0000
Subject: 	* interp/ht-util.boot (mkCurryFun): Import function name.

---
 src/interp/ht-util.boot | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/interp/ht-util.boot')

diff --git a/src/interp/ht-util.boot b/src/interp/ht-util.boot
index a24c1cb3..197675ce 100644
--- a/src/interp/ht-util.boot
+++ b/src/interp/ht-util.boot
@@ -287,6 +287,7 @@ beforeAfter(x,u) == [[y for [y,:r] in tails u while x ~= y],r]
 
 mkCurryFun(fun, val) ==
   name := gensym()
+  importSymbol name
   code :=
     ['DEFUN, name, '(arg), ['APPLY, MKQ fun, ['CONS, 'arg, MKQ val]]]
   eval code
-- 
cgit v1.2.3