From 3c5c05989e3fcc8f24e7a9a3d6707942fb1e164d Mon Sep 17 00:00:00 2001
From: gheber <leberecht@beingandti.me>
Date: Sat, 4 Jul 2015 17:53:08 -0500
Subject: [PATCH] Whoops! Can't get rid of INTR-MRPH quite yet...

---
 src/classes.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/classes.lisp b/src/classes.lisp
index 3477512..969625f 100644
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -83,7 +83,7 @@
 ;; (function (degr) (list gnrt))
 
 ;; INTR-MRPH = INTeRnal-MoRPHism
-;; (DEFTYPE INTR-MRPH () 'function)
+(DEFTYPE INTR-MRPH () '(or function morphism))
 ;; (or (function (degr gnrt) cmbn)  ;; if :gnrt strategy
 ;;     (function (cmbn) (cmbn))     ;; if :cmbn strategy