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

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
js-assembler/package.rkt
View File

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

9
resource/record.rkt
View File

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