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

trying to fix implicit refernces of planet, but something broke

Browse Source
This commit is contained in:
Danny Yoo 2011-08-14 19:24:17 -04:00
parent c3946d7acf
commit f6ee6e4e22
2 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bf/lang/reader.rkt
View File

@ -1,9 +1,11 @@
#lang s-exp syntax/module-reader #lang s-exp syntax/module-reader
(planet dyoo/whalesong/bf/language) ;; switched from (planet dyoo/bf/language) #:language (lambda ()
`(planet ,(this-package-version-symbol bf/language)))
#:read my-read #:read my-read
#:read-syntax my-read-syntax #:read-syntax my-read-syntax
#:info my-get-info #:info my-get-info
(require "../parser.rkt") (require "../parser.rkt"
planet/version)
(define (my-read in) (define (my-read in)
(syntax->datum (my-read-syntax #f in))) (syntax->datum (my-read-syntax #f in)))

27
expand-out-images.rkt
View File

@ -1,6 +1,7 @@
#lang racket/base #lang racket/base
(require planet/version (require racket/runtime-path
planet/version
syntax/kerncase syntax/kerncase
net/base64 net/base64
(for-template (this-package-in lang/kernel) (for-template (this-package-in lang/kernel)
@ -18,6 +19,8 @@
;; ;;
;; During the dynamic extent of expand-out-images, this will be defined ;; During the dynamic extent of expand-out-images, this will be defined
;; as the unique name for the image-url function in (planet dyoo/whalesong/image). ;; as the unique name for the image-url function in (planet dyoo/whalesong/image).
(define-runtime-path whalesong/image
"image.rkt")
(define my-image-url (make-parameter #f)) (define my-image-url (make-parameter #f))
@ -39,16 +42,18 @@
(#%expression #,(on-expr #'expr)))] (#%expression #,(on-expr #'expr)))]
[(module id name-id (#%plain-module-begin module-level-form ...)) [(module id name-id (#%plain-module-begin module-level-form ...))
(quasisyntax/loc stx (with-syntax ([image-library-path
(module id name-id (#%plain-module-begin (path->string whalesong/image)])
;; Kludge: I'm trying to get at the image-url (quasisyntax/loc stx
;; function, but in a way that doesn't clash with the (module id name-id (#%plain-module-begin
;; user's existing program. ;; Kludge: I'm trying to get at the image-url
(require (rename-in (planet dyoo/whalesong/image) ;; function, but in a way that doesn't clash with the
[image-url #,(my-image-url)])) ;; user's existing program.
(require (rename-in (file image-library-path)
#,@(map on-toplevel [image-url #,(my-image-url)]))
(syntax->list #'(module-level-form ...))))))]
#,@(map on-toplevel
(syntax->list #'(module-level-form ...)))))))]
[(begin top-level-form ...) [(begin top-level-form ...)
(quasisyntax/loc stx (quasisyntax/loc stx
(begin #,@(map on-toplevel (begin #,@(map on-toplevel