diff options
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 99fadcdc..bec950bc 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -1702,7 +1702,7 @@ #'(lambda () func) ;; constant domain #'(lambda (&rest args) (apply (|ClosFun| func) - (nconc + (|append!| (mapcar #'wrapDomArgs args (cdr cosig)) (list (|ClosEnv| func))))))) (apply cname args))))) @@ -1720,7 +1720,7 @@ #'(lambda (self &rest args) (let ((precat (apply (|ClosFun| func) - (nconc + (|append!| (mapcar #'wrapDomArgs args (cdr cosig)) (list (|ClosEnv| func)))))) (|CCall| (elt (car precat) 5) (cdr precat) (wrapDomArgs self t)))))) |