define-runtime-module-path-index and racket/gui/dynamic fixes

original commit: dee93e625984f3f92cb699a4e131eb34aee94874
This commit is contained in:
Matthew Flatt 2010-10-24 14:39:13 -06:00
parent cb9880c410
commit ea1269a0c2

View File

@ -11,7 +11,7 @@
(provide define-runtime-path
define-runtime-paths
define-runtime-path-list
define-runtime-module-path
define-runtime-module-path-index
runtime-paths)
(define-for-syntax ext-file-table (make-hasheq))
@ -147,7 +147,7 @@
(syntax-case stx ()
[(_ id expr) #`(-define-runtime-path #,stx (id) expr values list)]))
(define-syntax (define-runtime-module-path stx)
(define-syntax (define-runtime-module-path-index stx)
(syntax-case stx ()
[(_ id expr) #`(-define-runtime-path #,stx (id) `(module ,expr ,(#%variable-reference)) list values)]))