From 2e35f03f351f7909c5ff70ae2b0550f9a88a95f0 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Thu, 17 Jul 2014 13:40:18 +0900 Subject: [PATCH] remove type check guards in compare function --- piclib/built-in.scm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/piclib/built-in.scm b/piclib/built-in.scm index ed3fcde2..9ab0dd83 100644 --- 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)))