.

original commit: 5af0fe07e9d33c7dc831aee179bd8bdd02f87c43

collects/mzlib/etc.ss

@@ -5,7 +5,6 @@
 
   (provide true false
 	   boolean=? symbol=?
-	  char->string
 	   identity
 	   compose
 	   
@@ -124,12 +123,6 @@
 			(if (symbol? x) y x)))
     (eq? x y))
 
-  (define (char->string c)
-    (unless (char? c)
-      (raise-type-error 'char->string "character" c))
-    (string c))
-
- 
  (define-syntax opt-lambda 
    (lambda (stx)
      (with-syntax ([loop (or (syntax-local-name)

collects/mzlib/list.ss

@@ -97,13 +97,6 @@
 	     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
     (polymorphic
      (letrec ([rm (case-lambda