typo in DFlag

svn: r16179

collects/mzlib/trace.ss

@@ -151,29 +151,28 @@
 
 ;; A traced-proc struct instance acts like a procedure,
 ;;  but preserves the original, too.
-(define-values (struct:traced-proc make-traced-proc traced-proc? traced-proc-ref traced-proc-set!)
+(define-values (struct:traced-proc make-traced-proc traced-proc?
+                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 (do-trace ids procs setters traced-procs)
+(define (set-traced! ids procs setters traced-procs)
-  (for-each (lambda (id proc)
+  (for ([id (in-list ids)] [proc (in-list procs)])
-              (unless (procedure? proc)
+    (unless (procedure? proc)
-                (error 'trace
+      (error 'trace "the value of ~s is not a procedure: ~e" id proc)))
-                       "the value of ~s is not a procedure: ~e" id proc)))
+  (for ([proc (in-list procs)]
-            ids procs)
+        [setter (in-list setters)]
-  (for-each (lambda (proc setter traced-proc)
+        [traced-proc (in-list traced-procs)])
-              (unless (traced-proc? proc)
+    (unless (traced-proc? proc)
-                (setter (make-traced-proc 
+      (setter (make-traced-proc
-                         (let-values ([(a) (procedure-arity proc)]
+               (let-values ([(a) (procedure-arity proc)]
-                                      [(req allowed) (procedure-keywords proc)])
+                            [(req allowed) (procedure-keywords proc)])
-                           (procedure-reduce-keyword-arity traced-proc
+                 (procedure-reduce-keyword-arity traced-proc a req allowed))
-                                                           a
+               proc)))))
-                                                           req
-                                                           allowed))
-                         proc))))
-            procs setters traced-procs))
 
 ;; Key used for a continuation mark to indicate
 ;;  the nesting depth:
@@ -247,7 +246,7 @@
                     (for/list ([id (in-list (syntax->list #'(id ...)))])
                       (let ([tid (format "traced-~a" (syntax-e id))])
                         (datum->syntax id (string->symbol tid) #f)))])
-       #'(do-trace
+       #'(set-traced!
           '(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