undo revision 16179, which had some junk included by mistake

svn: r16180

collects/mzlib/trace.ss

@@ -151,28 +151,29 @@
 
 ;; A traced-proc struct instance acts like a procedure,
 ;;  but preserves the original, too.
-(define-values (struct:traced-proc make-traced-proc traced-proc?
+(define-values (struct:traced-proc make-traced-proc traced-proc? traced-proc-ref traced-proc-set!)
-                traced-proc-ref traced-proc-set!)
   (make-struct-type 'traced-proc #f 2 0 #f null (current-inspector) 0))
-(define-struct traced-proc (proc orig)
-  )
 
 ;; Install traced versions of a given set of procedures.  The traced
 ;;  versions are also given, so that they can be constructed to have
 ;;  a nice name.
-(define (set-traced! ids procs setters traced-procs)
+(define (do-trace ids procs setters traced-procs)
-  (for ([id (in-list ids)] [proc (in-list procs)])
+  (for-each (lambda (id proc)
               (unless (procedure? proc)
-      (error 'trace "the value of ~s is not a procedure: ~e" id proc)))
+                (error 'trace
-  (for ([proc (in-list procs)]
+                       "the value of ~s is not a procedure: ~e" id proc)))
-        [setter (in-list setters)]
+            ids procs)
-        [traced-proc (in-list traced-procs)])
+  (for-each (lambda (proc setter traced-proc)
               (unless (traced-proc? proc)
                 (setter (make-traced-proc 
                          (let-values ([(a) (procedure-arity proc)]
                                       [(req allowed) (procedure-keywords proc)])
-                 (procedure-reduce-keyword-arity traced-proc a req allowed))
+                           (procedure-reduce-keyword-arity traced-proc
-               proc)))))
+                                                           a
+                                                           req
+                                                           allowed))
+                         proc))))
+            procs setters traced-procs))
 
 ;; Key used for a continuation mark to indicate
 ;;  the nesting depth:
@@ -246,7 +247,7 @@
                     (for/list ([id (in-list (syntax->list #'(id ...)))])
                       (let ([tid (format "traced-~a" (syntax-e id))])
                         (datum->syntax id (string->symbol tid) #f)))])
-       #'(set-traced!
+       #'(do-trace
           '(id ...)
           (list id ...)
           (list (lambda (v) (set! id v)) ...)

collects/scribblings/mzc/ext.scrbl

@@ -21,7 +21,7 @@ it will be found automatically when loading the source. Use the
 subdirectory, where it will be found automatically when loading the
 source file.
 
-The @DFlag{c-source}/@Flag{c} mode for @|mzc| is like the
+The @DFlag{--c-source}/@Flag{c} mode for @|mzc| is like the
 @DFlag{extension}/@Flag{e} mode, except that compilation stops with
 the generation of C code.
 

collects/scribblings/reference/startup.scrbl

@@ -296,11 +296,11 @@ flags:
 
 If at least one command-line argument is provided, and if the first
 one after any @tech{configuration option} is not a flag, then a
-@Flag{u}/@DFlag{require-script} flag is implicitly added before the
+@Flag{u}/@DFlag{--require-script} flag is implicitly added before the
 first non-flag argument.
 
 If no command-line arguments are supplied other than
-@tech{configuration options}, then the @Flag{i}/@DFlag{repl} flag is
+@tech{configuration options}, then the @Flag{i}/@DFlag{--repl} flag is
 effectively added.
 
 For MrEd under X11, the follow flags are recognized when they appear