diff options
Diffstat (limited to 'src/interp/ht-util.boot')
-rw-r--r-- | src/interp/ht-util.boot | 1 |
1 files changed, 1 insertions, 0 deletions
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 |