suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 0edb2ad19d46400087c8bed0e333ee6e6b8dc1ea
This commit is contained in:
Matthew Flatt 1999-08-03 17:56:32 +00:00
parent 02ae494608
commit 168e7abd48
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/mzlib/functior.ss
View File

@ -306,12 +306,11 @@
(eq? x y)))
(define (symbol=? x y)
(lambda (x y)
(unless (and (symbol? x)
(symbol? y))
(raise-type-error 'symbol=? "symbol"
(if (symbol? x) y x)))
(eq? x y)))
(unless (and (symbol? x)
(symbol? y))
(raise-type-error 'symbol=? "symbol"
(if (symbol? x) y x)))
(eq? x y))
(define cons? (lambda (x) (pair? x)))
(define empty? (lambda (x) (null? x)))