From ee365bb698e4e89c4f59b8b73d3f683af327bc5e Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 28 Jun 2009 16:34:55 +0000
Subject: [PATCH] svn: r15323

---
 collects/redex/private/pict.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/redex/private/pict.ss b/collects/redex/private/pict.ss
index 6a07bf5f97..82118d5477 100644
--- a/collects/redex/private/pict.ss
+++ b/collects/redex/private/pict.ss
@@ -455,7 +455,7 @@
                      (map (λ (x) (format " ~a" x)) (cdr langs-nts)))))))
      nts)))
 
-;; lang-pict-builder : (-> pict) string -> void
+;; save-as-ps : (-> pict) string -> void
 (define (save-as-ps mk-pict filename) 
   (let ([ps-dc (make-ps-dc filename)])
     (parameterize ([dc-for-text-size ps-dc])