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

.

Browse Source 
original commit: 8ad0ac41a5d686877e0bd48df484e4f9df828e0a
This commit is contained in:
Matthew Flatt 2000-01-28 15:00:54 +00:00
parent a5fd6626d4
commit 3100091678
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/functior.ss
View File

@ -311,6 +311,11 @@
(raise-type-error 'symbol=? "symbol" (raise-type-error 'symbol=? "symbol"
(if (symbol? x) y x))) (if (symbol? x) y x)))
(eq? x y)) (eq? x y))
(define (char->string c)
(unless (char? c)
(raise-type-error 'char->string "character" c))
(string c))
(define cons? (lambda (x) (pair? x))) (define cons? (lambda (x) (pair? x)))
(define empty? (lambda (x) (null? x))) (define empty? (lambda (x) (null? x)))