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

trying to let whalesong work without gui libraries. Also trying to trace the module variable bug

Browse Source
This commit is contained in:
Danny Yoo 2012-02-26 18:59:42 -05:00
parent 8aa50dacc7
commit b0af169275
4 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/compiler.rkt
View File

@ -489,6 +489,9 @@
(: compile-toplevel-reference (ToplevelRef CompileTimeEnvironment Target Linkage -> InstructionSequence)) (: compile-toplevel-reference (ToplevelRef CompileTimeEnvironment Target Linkage -> InstructionSequence))
;; Compiles toplevel references. ;; Compiles toplevel references.
(define (compile-toplevel-reference exp cenv target linkage) (define (compile-toplevel-reference exp cenv target linkage)
(define prefix (ensure-prefix (list-ref cenv (ToplevelRef-depth exp))))
(define prefix-element (list-ref (Prefix-names prefix) (ToplevelRef-pos exp)))
(let ([singular-context-check (emit-singular-context linkage)]) (let ([singular-context-check (emit-singular-context linkage)])
(end-with-linkage linkage (end-with-linkage linkage
cenv cenv

4
lang/js/query.rkt
View File

@ -2,7 +2,7 @@
(require racket/contract (require racket/contract
racket/runtime-path racket/runtime-path
racket/gui/base ;; racket/gui/base
syntax/modresolve) syntax/modresolve)
@ -16,7 +16,7 @@
[lookup-module-requires (path? . -> . (listof path?))]) [lookup-module-requires (path? . -> . (listof path?))])
(define-runtime-path record.rkt "record.rkt") (define-runtime-path record.rkt "record.rkt")
(define ns (make-gui-namespace)) (define ns (make-base-namespace))
(define (my-resolve-module-path a-module-path) (define (my-resolve-module-path a-module-path)

5
resource/query.rkt
View File

@ -5,13 +5,14 @@
syntax/modresolve syntax/modresolve
racket/path racket/path
"structs.rkt" "structs.rkt"
racket/gui/base) ;; racket/gui/base
)
(provide/contract [query (module-path? . -> . (listof resource?))]) (provide/contract [query (module-path? . -> . (listof resource?))])
(define-runtime-path record.rkt "record.rkt") (define-runtime-path record.rkt "record.rkt")
(define ns (make-gui-namespace)) (define ns (make-base-namespace))
;; query: module-path -> (listof record) ;; query: module-path -> (listof record)
;; Given a module, collect all of its resource records ;; Given a module, collect all of its resource records

2
version.rkt
View File

@ -7,4 +7,4 @@
(provide version) (provide version)
(: version String) (: version String)
(define version "1.163") (define version "1.167")