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

@ -312,6 +312,11 @@
(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)))
(define empty '())) (define empty '()))