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

.

Browse Source 
original commit: 841b493651edfa411532ac0a4012b32fff00c95e
This commit is contained in:
Matthew Flatt 1999-07-24 13:11:07 +00:00
parent db359d48e8
commit ba0e46d214
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/functior.ss
View File

@ -305,6 +305,14 @@
(if (boolean? x) y x)))
(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)))
(define cons? (lambda (x) (pair? x)))
(define empty? (lambda (x) (null? x)))
(define empty '()))