Change mrph2 by (opps mrph2) in line 240

2019-12-13 13:41:07 +01:00 · 2019-12-13 13:41:07 +01:00 · f77a9e1c74
commit f77a9e1c74
parent a3362c6f0b
1 changed files with 1 additions and 1 deletions
--- a/src/chcm-elementary-op.lisp
+++ b/src/chcm-elementary-op.lisp
@ -237,7 +237,7 @@ composition of two morphisms, where the optional argument is a strategy.
             (error "In 2MRPH-SBTR, ~A and ~A may not be subtracteded."
                    mrph1 mrph2))
           (when (eq (first (orgn mrph1)) 'zero-mrph)
-             (return-from sbtr mrph2))
+             (return-from sbtr (opps mrph2)))
           (when (eq (first (orgn mrph2)) 'zero-mrph)
             (return-from sbtr mrph1))
           (unless strt