mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Change mrph2 by (opps mrph2) in line 240

Browse Source
This commit is contained in:
Julián Cuevas-Rozo 2019-12-13 13:41:07 +01:00 committed by GitHub
parent a3362c6f0b
commit f77a9e1c74
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/chcm-elementary-op.lisp
View File

@ -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." (error "In 2MRPH-SBTR, ~A and ~A may not be subtracteded."
mrph1 mrph2)) mrph1 mrph2))
(when (eq (first (orgn mrph1)) 'zero-mrph) (when (eq (first (orgn mrph1)) 'zero-mrph)
(return-from sbtr mrph2)) (return-from sbtr (opps mrph2)))
(when (eq (first (orgn mrph2)) 'zero-mrph) (when (eq (first (orgn mrph2)) 'zero-mrph)
(return-from sbtr mrph1)) (return-from sbtr mrph1))
(unless strt (unless strt