added smaller to scribble/basic

svn: r13668

collects/scribble/basic.ss

@@ -199,7 +199,7 @@
 
 (provide hspace
          elem aux-elem
-         italic bold
+         italic bold smaller
          tt span-class
          subscript superscript)
 
@@ -225,6 +225,9 @@
 (define (bold . str)
   (make-element 'bold (decode-content str)))
 
+(define (smaller . str)
+  (make-element "smaller" (decode-content str)))
+
 (define (tt . str)
   (let* ([l (decode-content str)]
          [l (let ([m (and (pair? l)

collects/scribblings/scribble/basic.scrbl

@@ -23,7 +23,7 @@
 @(define-syntax def-style-proc
    (syntax-rules ()
      [(_ id)
-      @def-elem-proc[id]{Like @scheme[elem], but with style @scheme['id]}]))
+      @def-elem-proc[id]{Like @scheme[elem], but with style @scheme['id].}]))
 
 @title[#:tag "basic"]{Basic Document Forms}
 
@@ -163,6 +163,8 @@ an element with style @scheme[#f].}
 @def-style-proc[subscript]
 @def-style-proc[superscript]
 
+@def-elem-proc[smaller]{Like @scheme[elem], but with style @scheme["smaller"].}
+
 @defproc[(hspace [n exact-nonnegative-integer?]) element?]{
 
 Produces an element containing @scheme[n] spaces and style