suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r15323

Browse Source
This commit is contained in:
Robby Findler 2009-06-28 16:34:55 +00:00
parent 52acc7cbfb
commit ee365bb698
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/redex/private/pict.ss
View File

@ -455,7 +455,7 @@
(map (λ (x) (format " ~a" x)) (cdr langs-nts))))))) (map (λ (x) (format " ~a" x)) (cdr langs-nts)))))))
nts))) nts)))
;; lang-pict-builder : (-> pict) string -> void ;; save-as-ps : (-> pict) string -> void
(define (save-as-ps mk-pict filename) (define (save-as-ps mk-pict filename)
(let ([ps-dc (make-ps-dc filename)]) (let ([ps-dc (make-ps-dc filename)])
(parameterize ([dc-for-text-size ps-dc]) (parameterize ([dc-for-text-size ps-dc])