diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-06-15 21:43:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-06-15 21:43:42 +0000 |
| commit | aafe7ff59792af6125574114312d5fc9ed15b5b7 (patch) | |
| tree | a3e0ee9f0b46c6ab0cc019147549b329228f2d26 /src/interp/ht-util.boot | |
| parent | 078a728917e03bd210824de99ee2bdec6c520aa5 (diff) | |
| download | open-axiom-aafe7ff59792af6125574114312d5fc9ed15b5b7.tar.gz | |
* interp/ht-util.boot (mkCurryFun): Import function name.
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 |