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

.

Browse Source 
original commit: 5af0fe07e9d33c7dc831aee179bd8bdd02f87c43
This commit is contained in:
Matthew Flatt 2001-02-18 05:25:49 +00:00
parent 119f5cf116
commit d23c655a30
4 changed files with 33 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/etc.ss
View File

@ -5,7 +5,6 @@
(provide true false (provide true false
boolean=? symbol=? boolean=? symbol=?
char->string
identity identity
compose compose
@ -124,12 +123,6 @@
(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-syntax opt-lambda (define-syntax opt-lambda
(lambda (stx) (lambda (stx)
(with-syntax ([loop (or (syntax-local-name) (with-syntax ([loop (or (syntax-local-name)

7
collects/mzlib/list.ss
View File

@ -97,13 +97,6 @@
null null
(until (split alox null))))))) (until (split alox null)))))))
(define ignore-errors
(polymorphic
(lambda (thunk)
(let/ec escape
(with-handlers ([not-break-exn? (lambda (x) (escape (void)))])
(thunk))))))
(define remove (define remove
(polymorphic (polymorphic
(letrec ([rm (case-lambda (letrec ([rm (case-lambda