remove type check guards in compare function

2014-07-17 13:40:18 +09:00 · 2014-07-17 13:40:18 +09:00 · 2e35f03f35
parent 5e8c4af84b
commit 2e35f03f35
1 changed files with 1 additions and 5 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -106,11 +106,7 @@
              id)))

      (define (compare sym1 sym2)
-        (if (symbol? sym1)
-            (if (symbol? sym2)
-                (identifier=? use-env sym1 use-env sym2)
-                #f)
-            #f))
+        (identifier=? use-env sym1 use-env sym2))

      (f expr rename compare)))