.

original commit: 5af0fe07e9d33c7dc831aee179bd8bdd02f87c43

collects/mzlib/compat.ss

@@ -3,15 +3,15 @@
   (require "list.ss")
 
   (provide real-time
-	  1+ 1-
+	   1+ 1-
-	  >=? <=? >? <? =?
+	   >=? <=? >? <? =?
-	  flush-output-port
+	   flush-output-port
-	  sort
+	   sort
-	  gentemp
+	   gentemp
-	  atom?
+	   atom?
-	  putprop getprop
+	   putprop getprop
-	  new-cafe
+	   new-cafe
-	  define-structure)
+	   define-structure)
   
   (define 1+ add1)
   (define 1- sub1)

collects/mzlib/etc.ss

@@ -4,24 +4,23 @@
   (require-for-syntax (lib "kerncase.ss" "syntax"))
 
   (provide true false
-	  boolean=? symbol=?
+	   boolean=? symbol=?
-	  char->string
+	   identity
-	  identity
+	   compose
-	  compose
+	   
-
+	   build-string
-	  build-string
+	   build-vector
-	  build-vector
+	   build-list
-	  build-list
+	   
-
+	   loop-until
-	  loop-until
+	   
-
+	   local
-	  local
+	   recur
-	  recur
+	   rec
-	  rec
+	   evcase
-	  evcase
+	   nor
-	  nor
+	   nand
-	  nand
+	   let+)
-	  let+)
 
   (define true #t)
   (define false #f)
@@ -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 

collects/mzlib/string.ss

@@ -1,13 +1,13 @@
 
 (module string mzscheme
   (provide string-lowercase!
-	  string-uppercase!
+	   string-uppercase!
-	  eval-string
+	   eval-string
-	  read-from-string
+	   read-from-string
-	  read-from-string-all
+	   read-from-string-all
-	  expr->string
+	   expr->string
-	  newline-string
+	   newline-string
-	  regexp-match-exact?)
+	   regexp-match-exact?)
 
   (define make-string-do!
     (lambda (translate)