svn: r11269

collects/redex/HISTORY

@@ -3,6 +3,9 @@ v4.2
   - added white-bracket-sizing to control how the brackets
     are typeset when rendering a metafunction.
 
+  - added render-* functions that make it easier to experiment
+    with typesetting at the REPL.
+
 v4.1 (this is the first version that was included in the PLT
       distribution. Before this, Redex was in PLaneT).
 

collects/redex/pict.ss

@@ -21,10 +21,9 @@
   (->d ([rel reduction-relation?])
        ([file (or/c false/c path-string?)]
         #:style [style reduction-rule-style/c])
-       [result (lambda (x)
-                 (if (path-string? file)
-                     (void? x)
-                     (pict? x)))])]
+       [result (if (path-string? file)
+                   void?
+                   pict?)])]
  [reduction-relation->pict (->* (reduction-relation?)
                                 (#:style reduction-rule-style/c)
                                 pict?)]
@@ -37,10 +36,9 @@
   (->d ([lang compiled-lang?])
        ([file (or/c false/c path-string?)]
         #:nts [nts (or/c false/c (listof (or/c string? symbol?)))])
-       [result (lambda (x) 
-                 (if (path-string? file)
-                     (void? x)
-                     (pict? x)))])])
+       [result (if (path-string? file)
+                   void?
+                   pict?)])])
 
 ; syntax
 (provide metafunction->pict

collects/redex/private/bitmap-test.ss

@@ -1,4 +1,4 @@
-(module bitmap-test mzscheme
+#lang scheme
 (require "bitmap-test-util.ss"
          "../main.ss")
 
@@ -12,8 +12,11 @@
      number)
   (v number (λ (x) e))
   ((x y) variable-not-otherwise-mentioned))
+
 (test (render-language lang) "language.png")
 
+(test (render-language lang #:nts '(e v)) "language-nox.png")
+
 (define-extended-language lang++ lang
   (e .... number (+ e e))
   (v .... number))
@@ -47,4 +50,4 @@
       "lw.png")
 
 (printf "bitmap-test.ss: ")
-  (done))
+(done)

collects/redex/redex.scrbl

@@ -1191,9 +1191,8 @@ are otherwise setting @scheme[dc-for-text-size].  }
 Produce a pict like @scheme[render-language], but without
 adjust @scheme[dc-for-text-size].
 
-This function is
-primarily designed to be used with Slideshow or with
-other tools that combine picts together.
+This function is primarily designed to be used with
+Slideshow or with other tools that combine picts together.
 }
 
 @defproc[(render-reduction-relation [rel reduction-relation?]