From f77a9e1c7424de396c5e6b65f472c2e0eaafcf44 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juli=C3=A1n=20Cuevas-Rozo?= Date: Fri, 13 Dec 2019 13:41:07 +0100 Subject: [PATCH] Change mrph2 by (opps mrph2) in line 240 --- src/chcm-elementary-op.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/chcm-elementary-op.lisp b/src/chcm-elementary-op.lisp index 0e14f97..5909a29 100644 --- 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