From b0af1692757fe2dbe0a9ff147906a0450046dfdb Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Sun, 26 Feb 2012 18:59:42 -0500
Subject: [PATCH] trying to let whalesong work without gui libraries.  Also
 trying to trace the module variable bug

---
 compiler/compiler.rkt | 3 +++
 lang/js/query.rkt     | 4 ++--
 resource/query.rkt    | 5 +++--
 version.rkt           | 2 +-
 4 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/compiler/compiler.rkt b/compiler/compiler.rkt
index 0813988..f42b73f 100644
--- a/compiler/compiler.rkt
+++ b/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
diff --git a/lang/js/query.rkt b/lang/js/query.rkt
index 98b58e9..af9d9cb 100644
--- a/lang/js/query.rkt
+++ b/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)
diff --git a/resource/query.rkt b/resource/query.rkt
index 0df68b5..9a858fc 100644
--- a/resource/query.rkt
+++ b/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
diff --git a/version.rkt b/version.rkt
index 4aa1fca..68ece6f 100644
--- a/version.rkt
+++ b/version.rkt
@@ -7,4 +7,4 @@
 (provide version)
 (: version String)
 
-(define version "1.163")
+(define version "1.167")