conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove type check guards in compare function

This commit is contained in:
Yuichi Nishiwaki 2014-07-17 13:40:18 +09:00
parent 5e8c4af84b
commit 2e35f03f35
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
piclib/built-in.scm
View File

@ -106,11 +106,7 @@
id))) id)))
(define (compare sym1 sym2) (define (compare sym1 sym2)
(if (symbol? sym1) (identifier=? use-env sym1 use-env sym2))
(if (symbol? sym2)
(identifier=? use-env sym1 use-env sym2)
#f)
#f))
(f expr rename compare))) (f expr rename compare)))