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

Fix error when rendering to a file.

Browse Source 
svn: r13290
This commit is contained in:
Stevie Strickland 2009-01-27 13:39:14 +00:00
parent 5ada90b24e
commit 06c189a726
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

@ -395,7 +395,7 @@
(define (render-language lang [filename #f] #:nts [nts (render-language-nts)])
(if filename
(save-as-ps (λ () (do-language->pict 'render-language lang)) filename nts)
(save-as-ps (λ () (do-language->pict 'render-language lang nts)) filename)
(parameterize ([dc-for-text-size (make-object bitmap-dc% (make-object bitmap% 1 1))])
(do-language->pict 'render-language lang nts))))