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

fixed issue 15: turned off the require-for-template on the image library, and that seems to have resolved the conflict.

Browse Source
This commit is contained in:
Danny Yoo 2011-09-23 12:45:43 -04:00
parent 83ff8fafe9
commit af50388450
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
expand-out-images.rkt
View File

@ -1,15 +1,9 @@
#lang racket/base
(require racket/runtime-path
planet/version
syntax/kerncase
net/base64
(for-template (this-package-in lang/kernel)
#;(this-package-in image/main))
;; FIXME: I don't quite understand why I should be doing a require
;; of the image library at compile time, and not at template time.
(this-package-in image/main))
(for-template "lang/kernel.rkt"))
@ -34,9 +28,10 @@
;; fruitfully use compiler/zo-parse.
(define rewritten
(parameterize
([my-image-url (car (generate-temporaries #'(image-url)))])
([my-image-url (car (generate-temporaries #'(my-image-url)))])
(kernel-syntax-case (syntax-disarm expanded code-insp) #f
(define disarmed (syntax-disarm expanded code-insp))
(kernel-syntax-case disarmed #f
[(#%expression expr)
(quasisyntax/loc stx
(#%expression #,(on-expr #'expr)))]
@ -49,8 +44,8 @@
;; Kludge: I'm trying to get at the image-url
;; function, but in a way that doesn't clash with the
;; user's existing program.
(require (rename-in (file image-library-path)
[image-url #,(my-image-url)]))
(require (only-in (file image-library-path)
[bitmap/url #,(my-image-url)]))
#,@(map on-toplevel
(syntax->list #'(module-level-form ...)))))))]