improved scribble syntax use

svn: r8720

original commit: 264af9a6d0224c7374c0e81d1cb8f25ce45bfd41

collects/scribblings/scribble/basic.scrbl

@@ -3,21 +3,24 @@
           "utils.ss"
           (for-syntax scheme/base))
 
-@define-syntax[def-section-like
-               (syntax-rules ()
-                 [(_ id result/c x ...) (defproc (id [#:tag tag (or/c false/c string?) #f]
-                                                     [pre-content any/c] (... ...+))
-                                                 result/c
-                                                 x ...)])]
+@(define-syntax def-section-like
+   (syntax-rules ()
+     [(_ id result/c x ...)
+      (defproc (id [#:tag tag (or/c false/c string?) #f]
+                   [pre-content any/c] (... ...+))
+        result/c
+        x ...)]))
 
-@define-syntax[def-elem-proc
-               (syntax-rules ()
-                 [(_ id x ...) (defproc (id [pre-content any/c] (... ...))
-                                        element?
-                                        x ...)])]
-@define-syntax[def-style-proc
-               (syntax-rules ()
-                 [(_ id) @def-elem-proc[id]{Like @scheme[elem], but with style @scheme['id]}])]
+@(define-syntax def-elem-proc
+   (syntax-rules ()
+     [(_ id x ...)
+      (defproc (id [pre-content any/c] (... ...))
+        element?
+        x ...)]))
+@(define-syntax def-style-proc
+   (syntax-rules ()
+     [(_ id)
+      @def-elem-proc[id]{Like @scheme[elem], but with style @scheme['id]}]))
 
 @title[#:tag "basic"]{Basic Document Forms}
 

collects/scribblings/scribble/reader.scrbl

@@ -733,12 +733,12 @@ provides direct Scribble reader functionality for advanced needs.}
 @; The `with-scribble-read' trick below shadows `read' and
 @;  `read-syntax' with for-label bindings from the Scribble reader
 
-@define-syntax[with-scribble-read
- (syntax-rules ()
-  [(_)
-   (...
-    (begin
-     (require (for-label scribble/reader))
+@(define-syntax with-scribble-read
+   (syntax-rules ()
+     [(_)
+      (...
+       (begin
+         (require (for-label scribble/reader))
 
 @; *** Start reader-import section ***
 @defproc[(read [in input-port? (current-input-port)]) any]{}
@@ -815,6 +815,6 @@ resulting readtable using @scheme[current-readtable]. It also enables
 line counting for the current input-port via @scheme[port-count-lines!].}
 
 @; *** End reader-import section ***
-))])]
+))]))
 @with-scribble-read[]