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

compiler/compiler.rkt

@@ -489,6 +489,9 @@
 (: compile-toplevel-reference (ToplevelRef CompileTimeEnvironment Target Linkage -> InstructionSequence))
 ;; Compiles toplevel references.
 (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)])
     (end-with-linkage linkage
                       cenv

lang/js/query.rkt

@@ -2,7 +2,7 @@
 
 (require racket/contract
          racket/runtime-path
-         racket/gui/base
+         ;; racket/gui/base
          syntax/modresolve)
 
 
@@ -16,7 +16,7 @@
                   [lookup-module-requires (path? . -> . (listof path?))])
 
 (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)

resource/query.rkt

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

version.rkt

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