Use @(interaction-eval ...) instead of @interaction-eval[...].

svn: r9429

collects/scribblings/guide/class.scrbl

@@ -54,7 +54,7 @@ public methods @scheme[get-size], @scheme[grow], and @scheme[eat]:
     (grow (send other-fish get-size))))
 ]
 
-@interaction-eval[
+@(interaction-eval
 #:eval class-eval
 (define fish%
   (class object%
@@ -66,7 +66,7 @@ public methods @scheme[get-size], @scheme[grow], and @scheme[eat]:
     (define/public (grow amt)
       (set! current-size (+ amt current-size)))
     (define/public (eat other-fish)
-      (grow (send other-fish get-size)))))]
+      (grow (send other-fish get-size))))))
 
 The @scheme[size] initialization argument must be supplied via a named
  argument when instantiating the class through the @scheme[new] form:
@@ -82,9 +82,9 @@ Of course, we can also name the class and its instance:
 (define charlie (new fish% [size 10]))
 ]
 
-@interaction-eval[
+@(interaction-eval
 #:eval class-eval
-(define charlie (new fish% [size 10]))]
+(define charlie (new fish% [size 10])))
 
 In the definition of @scheme[fish%], @scheme[current-size] is a
 private field that starts out with the value of the @scheme[size]

collects/scribblings/guide/io.scrbl

@@ -14,7 +14,7 @@
      (list (list (make-flow (list a))
                  (make-flow (list (make-paragraph (list (hspace 1)))))
                  (make-flow (list b))))))
-@interaction-eval[#:eval io-eval (print-hash-table #t)]
+@(interaction-eval #:eval io-eval (print-hash-table #t))
 
 @title[#:tag "i/o" #:style 'toc]{Input and Output}
 
@@ -39,9 +39,9 @@ examples:
   file for writing, and @scheme[open-input-file] opens a file for
   reading.
 
-@interaction-eval[#:eval io-eval (define old-dir (current-directory))]
+@(interaction-eval #:eval io-eval (define old-dir (current-directory)))
-@interaction-eval[#:eval io-eval (current-directory (find-system-path 'temp-dir))]
+@(interaction-eval #:eval io-eval (current-directory (find-system-path 'temp-dir)))
-@interaction-eval[#:eval io-eval (when (file-exists? "data") (delete-file "data"))]
+@(interaction-eval #:eval io-eval (when (file-exists? "data") (delete-file "data")))
 
 @examples[
 #:eval io-eval
@@ -81,8 +81,8 @@ with the output port; when the function returns, the port is closed.
                         (read-line in)))
 ]
 
-@interaction-eval[#:eval io-eval (when (file-exists? "data") (delete-file "data"))]
+@(interaction-eval #:eval io-eval (when (file-exists? "data") (delete-file "data")))
-@interaction-eval[#:eval io-eval (current-directory old-dir)]}
+@(interaction-eval #:eval io-eval (current-directory old-dir))}
 
 @;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  @item{@bold{Strings:} The @scheme[open-output-string] function creates

collects/scribblings/guide/lists.scrbl

@@ -9,7 +9,7 @@
 @(define step @elem{=})
 
 @(define list-eval (make-base-eval))
-@interaction-eval[#:eval list-eval (require scheme/list)]
+@(interaction-eval #:eval list-eval (require scheme/list))
 
 @title{Lists, Iteration, and Recursion}
 

collects/scribblings/guide/set.scrbl

@@ -3,7 +3,7 @@
           scribble/eval
           "guide-utils.ss")
 
-@interaction-eval[(require (lib "mzlib/for.ss"))]
+@(interaction-eval (require (lib "mzlib/for.ss")))
 
 @title[#:tag "set!"]{Assignment: @scheme[set!]}
 

collects/scribblings/guide/truth.scrbl

@@ -7,7 +7,7 @@
           (for-label scheme/list))
 
 @(define list-eval (make-base-eval))
-@interaction-eval[#:eval list-eval (require scheme/list)]
+@(interaction-eval #:eval list-eval (require scheme/list))
 
 @title{Pairs, Lists, and Scheme Syntax}
 

collects/scribblings/more/more.scrbl

@@ -13,20 +13,20 @@
 @(define guide @other-manual['(lib "guide.scrbl" "scribblings/guide")])
 
 @(define more-eval (make-base-eval))
-@interaction-eval[#:eval more-eval
+@(interaction-eval #:eval more-eval
-                  (define (show-load re?)
+                   (define (show-load re?)
-                    (fprintf (current-error-port) " [~aloading serve.ss]\n" (if re? "re-" "")))]
+                     (fprintf (current-error-port) " [~aloading serve.ss]\n" (if re? "re-" ""))))
-@interaction-eval[#:eval more-eval
+@(interaction-eval #:eval more-eval
-                  (define (serve n) void)]
+                   (define (serve n) void))
-@interaction-eval[#:eval more-eval
+@(interaction-eval #:eval more-eval
-                  (define (show-break)
+                   (define (show-break)
-                    (fprintf (current-error-port) "^Cuser break"))]
+                     (fprintf (current-error-port) "^Cuser break")))
-@interaction-eval[#:eval more-eval
+@(interaction-eval #:eval more-eval
-                  (define (show-fail n)
+                   (define (show-fail n)
-                    (error 'tcp-listen
+                     (error 'tcp-listen
-                           "listen on ~a failed (address already in use)"
+                            "listen on ~a failed (address already in use)"
-                           n))]
+                            n)))
-@interaction-eval[#:eval more-eval (require xml net/url)]
+@(interaction-eval #:eval more-eval (require xml net/url))
 
 @(define (whole-prog which [last? #f])
   (let ([file (format "step~a.txt" which)])

collects/scribblings/quick/quick.scrbl

@@ -524,7 +524,7 @@ classes. By convention, the classes are given names that end with
 (send f show #t)
 ]
 
-@mr-interaction-eval[(send f show #f)]
+@(mr-interaction-eval (send f show #f))
 
 The @scheme[new] form creates an instance of a class, where
 initialization arguments like @scheme[label] and @scheme[width] are
@@ -552,12 +552,12 @@ picture into a canvas:
 ]
 
 @centerline{
-@mr-interaction-eval-show[(scale 
+@(mr-interaction-eval-show (scale
-                           (bitmap 
+                            (bitmap
-                            (build-path 
+                             (build-path
-                             (collection-path "scribblings/quick") 
+                              (collection-path "scribblings/quick") 
-                             "art.png"))
+                              "art.png"))
-                           0.5)]}
+                            0.5))}
 
 Each canvas stretches to fill an equal portion of the frame, because
 that's how a frame manages its children by default.

collects/scribblings/reference/class.scrbl

@@ -70,7 +70,7 @@
 
 )
 
-@interaction-eval[#:eval class-eval (require scheme/class)]
+@(interaction-eval #:eval class-eval (require scheme/class))
 
 
 @title[#:tag "mzlib:class" #:style 'toc]{Classes and Objects}

collects/scribblings/reference/define-struct.scrbl

@@ -4,7 +4,7 @@
           (for-label scheme/serialize))
 
 @(define posn-eval (make-base-eval))
-@interaction-eval[#:eval posn-eval (require (for-syntax scheme/base))]
+@(interaction-eval #:eval posn-eval (require (for-syntax scheme/base)))
 
 @title[#:tag "define-struct"]{Defining Structure Types: @scheme[define-struct]}
 

collects/scribblings/reference/dicts.scrbl

@@ -3,7 +3,7 @@
           scribble/eval)
 
 @(define dict-eval (make-base-eval))
-@interaction-eval[#:eval dict-eval (require scheme/dict)]
+@(interaction-eval #:eval dict-eval (require scheme/dict))
 
 @title[#:tag "dicts"]{Dictionaries}
 

collects/scribblings/reference/match.scrbl

@@ -4,7 +4,7 @@
           scheme/match)
 
 @(define match-eval (make-base-eval))
-@interaction-eval[#:eval match-eval (require scheme/match)]
+@(interaction-eval #:eval match-eval (require scheme/match))
 
 @title[#:tag "match"]{Pattern Matching}
 

collects/scribblings/reference/numbers.scrbl

@@ -3,7 +3,7 @@
           scheme/math)
 
 @(define math-eval (make-base-eval))
-@interaction-eval[#:eval math-eval (require scheme/math)]
+@(interaction-eval #:eval math-eval (require scheme/math))
 
 @title[#:tag "numbers"]{Numbers}
 

collects/scribblings/reference/procedures.scrbl

@@ -404,7 +404,7 @@ applied.}
 
 @note-lib[scheme/function]
 @(define fun-eval (make-base-eval))
-@interaction-eval[#:eval fun-eval (require scheme/function)]
+@(interaction-eval #:eval fun-eval (require scheme/function))
 
 @defproc[(negate [proc procedure?]) procedure?]{
 

collects/scribblings/reference/sandbox.scrbl

@@ -6,7 +6,7 @@
                      scheme/gui/dynamic))
 
 @(define box-eval (make-base-eval))
-@interaction-eval[#:eval box-eval (require scheme/sandbox)]
+@(interaction-eval #:eval box-eval (require scheme/sandbox))
 
 @title{Sandboxed Evaluation}
 

collects/scribblings/reference/serialization.scrbl

@@ -4,7 +4,7 @@
           (for-label scheme/serialize))
 
 @(define ser-eval (make-base-eval))
-@interaction-eval[#:eval ser-eval (require scheme/serialize)]
+@(interaction-eval #:eval ser-eval (require scheme/serialize))
 
 @title[#:tag "serialization"]{Serialization}
 

collects/scribblings/reference/shared.scrbl

@@ -6,7 +6,7 @@
 
 
 @(define shared-eval (make-base-eval))
-@interaction-eval[#:eval shared-eval (require scheme/shared)]
+@(interaction-eval #:eval shared-eval (require scheme/shared))
 
 @(define maker
    (make-element #f (list

collects/scribblings/reference/strings.scrbl

@@ -367,7 +367,7 @@ allocated string).}
 
 @note-lib[scheme/string]
 @(define string-eval (make-base-eval))
-@interaction-eval[#:eval string-eval (require scheme/string scheme/list)]
+@(interaction-eval #:eval string-eval (require scheme/string scheme/list))
 
 @defproc[(string-append* [str string?] ... [strs (listof string?)]) string?]{
 @; Note: this is exactly the same description as the one for append*

collects/scribblings/reference/stx-trans.scrbl

@@ -7,7 +7,7 @@
                      scheme/provide-syntax))
 
 @(define stx-eval (make-base-eval))
-@interaction-eval[#:eval stx-eval (require (for-syntax scheme/base))]
+@(interaction-eval #:eval stx-eval (require (for-syntax scheme/base)))
 
 @(define (transform-time) @t{This procedure must be called during the
 dynamic extent of a @tech{syntax transformer} application by the

collects/scribblings/scribble/reader.scrbl

@@ -8,7 +8,7 @@
                               use-at-readtable)))
 
 @(define read-eval (make-base-eval))
-@interaction-eval[#:eval read-eval (require (for-syntax scheme/base))]
+@(interaction-eval #:eval read-eval (require (for-syntax scheme/base)))
 
 @title[#:tag "reader"]{@"@"-Reader}