diff options
Diffstat (limited to 'src/combinator.lisp')
-rw-r--r-- | src/combinator.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index 6b9acc4..c1a76a6 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -357,7 +357,7 @@ an :UNAPPLY subroutine for a property which works by calling other properties." (apply #'eseqprops (cdr unapply)) (cadr unapply)))) (if unapply - (:retprop :type (collapse-propapp-types apply (cdr unapply)) + (:retprop :type (combine-propapp-types apply (cdr unapply)) :hostattrs (lambda-ignoring-args (propappattrs apply-propapp) ;; as in definition of UNAPPLIED combinator |