From 76042d8b4c268acdf064bdb246d1abd370300e8d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 16 Feb 2009 16:35:06 +0000
Subject: [PATCH] added smaller to scribble/basic

svn: r13668
---
 collects/scribble/basic.ss                | 5 ++++-
 collects/scribblings/scribble/basic.scrbl | 4 +++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss
index a3c993648b..d90ae6f127 100644
--- a/collects/scribble/basic.ss
+++ b/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)
diff --git a/collects/scribblings/scribble/basic.scrbl b/collects/scribblings/scribble/basic.scrbl
index 7b86d27330..2492ae3436 100644
--- a/collects/scribblings/scribble/basic.scrbl
+++ b/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