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

fix redex pdf generation when a string is passed

Browse Source
This commit is contained in:
Robby Findler 2012-09-25 15:32:06 -05:00
parent a5acdb473f
commit 9b0eb1ab78
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/redex/private/pict.rkt
View File

@ -533,9 +533,11 @@
(send ps-setup copy-from (current-ps-setup))
(send ps-setup set-file filename)
(send ps-setup set-mode 'file)
(define % (if (regexp-match #rx#"[.]pdf$" (path->bytes filename))
pdf-dc%
post-script-dc%))
(define is-pdf?
(cond
[(path? filename) (regexp-match #rx#"[.]pdf$" (path->bytes filename))]
[else (regexp-match #rx"[.]pdf$" filename)]))
(define % (if is-pdf? pdf-dc% post-script-dc%))
(parameterize ([current-ps-setup ps-setup])
(make-object % #f #f))))