From 73b98c7648c16583db4c59f24df5d3594c0b106a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 6 Sep 2019 07:05:14 -0700
Subject: subtypep: remove useless eq.

* lib.c (subtypep): The sub and sup parameters are compared
for equality early in the function; byt the time we get
here, we know they are not eq, so nil can be returned.
---
 lib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index f4810a44..cba770b2 100644
--- a/lib.c
+++ b/lib.c
@@ -254,7 +254,7 @@ val subtypep(val sub, val sup)
       return nil;
     }
 
-    return eq(sub, sup);
+    return nil;
   }
 }
 
-- 
cgit v1.2.3