kludge: copying the resource structure, because for some reason, something bad is happening with regards to dynamic-require-for-syntax.

This commit is contained in:
Danny Yoo 2011-08-14 19:37:20 -04:00
parent d5c842c7fe
commit e6547a9aa2
2 changed files with 8 additions and 3 deletions

View File

@ -99,7 +99,7 @@
(source-resources
(MainModuleSource-source src))]
[(ModuleSource? src)
empty #;(resource-query:query
(resource-query:query
`(file ,(path->string (ModuleSource-path src))))]
[(SexpSource? src)
empty]

View File

@ -1,9 +1,14 @@
#lang racket/base
(require racket/port
"structs.rkt")
(require racket/port)
(provide record-resource
get-records)
;; Needs to be prefabricated
(struct resource (path key) #:prefab)
(define records '())
(define (get-records)