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

none of the various render-* worked under linux, due to a platform-specific default in the way ps-setup works.

Browse Source 
svn: r14678
This commit is contained in:
Robby Findler 2009-05-01 20:38:26 +00:00
parent ae36abfc37
commit a3768d00eb
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -454,6 +454,7 @@
(let ([ps-setup (make-object ps-setup%)]) (let ([ps-setup (make-object ps-setup%)])
(send ps-setup copy-from (current-ps-setup)) (send ps-setup copy-from (current-ps-setup))
(send ps-setup set-file filename) (send ps-setup set-file filename)
(send ps-setup set-mode 'file)
(parameterize ([current-ps-setup ps-setup]) (parameterize ([current-ps-setup ps-setup])
(make-object post-script-dc% #f #f)))) (make-object post-script-dc% #f #f))))