From 2a93508d41d2335e178982a787285869db3bf1c9 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 23 Sep 2011 15:20:20 -0400
Subject: [PATCH] trying to do more profiling

---
 lang/js/query.rkt  | 30 ++++++++++++++++++------------
 resource/query.rkt |  2 +-
 version.rkt        |  2 +-
 whalesong.rkt      |  2 +-
 4 files changed, 21 insertions(+), 15 deletions(-)

diff --git a/lang/js/query.rkt b/lang/js/query.rkt
index e2756e6..98b58e9 100644
--- a/lang/js/query.rkt
+++ b/lang/js/query.rkt
@@ -18,38 +18,44 @@
 (define-runtime-path record.rkt "record.rkt")
 (define ns (make-gui-namespace))
 
+
+(define (my-resolve-module-path a-module-path)
+  (resolve-module-path a-module-path #f))
+
+
+
 ;; query: module-path -> string?
 ;; Given a module, see if it's implemented via Javascript.
 (define (query a-module-path)
-  (let ([resolved-path (resolve-module-path a-module-path #f)])
+  (let ([resolved-path (my-resolve-module-path a-module-path)])
     (parameterize ([current-namespace ns])
-      (dynamic-require a-module-path (void)) ;; get the compile-time code running.
+      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
       ((dynamic-require-for-syntax record.rkt 'lookup-javascript-implementation) resolved-path))))
 
 
 ;; has-javascript-implementation?:  module-path -> boolean
 (define (has-javascript-implementation? a-module-path)  
-  (let ([resolved-path (resolve-module-path a-module-path #f)])
+  (let ([resolved-path (my-resolve-module-path a-module-path)])
     (parameterize ([current-namespace ns])
-      (dynamic-require a-module-path (void)) ;; get the compile-time code running.
+      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
       ((dynamic-require-for-syntax record.rkt 'has-javascript-implementation?) resolved-path))))
   
 
 
 ;; redirected? path -> boolean
 (define (redirected? a-module-path)
-  (let ([resolved-path (resolve-module-path a-module-path #f)])
+  (let ([resolved-path (my-resolve-module-path a-module-path)])
     (parameterize ([current-namespace ns])
-      (dynamic-require a-module-path (void)) ;; get the compile-time code running.
+      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
       (path? ((dynamic-require-for-syntax record.rkt 'follow-redirection)
               resolved-path)))))
 
 
 ;; follow-redirection: module-path -> path
 (define (follow-redirection a-module-path)
-  (let ([resolved-path (resolve-module-path a-module-path #f)])
+  (let ([resolved-path (my-resolve-module-path a-module-path)])
     (parameterize ([current-namespace ns])
-      (dynamic-require a-module-path (void)) ;; get the compile-time code running.
+      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
       ((dynamic-require-for-syntax record.rkt 'follow-redirection)
        resolved-path))))
 
@@ -57,15 +63,15 @@
 
 ;; collect-redirections-to: module-path -> (listof path)
 (define (collect-redirections-to a-module-path)
-  (let ([resolved-path (resolve-module-path a-module-path #f)])
+  (let ([resolved-path (my-resolve-module-path a-module-path)])
     (parameterize ([current-namespace ns])
-      (dynamic-require a-module-path (void)) ;; get the compile-time code running.
+      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
       ((dynamic-require-for-syntax record.rkt 'collect-redirections-to)
        resolved-path))))
 
 
 (define (lookup-module-requires a-module-path)
-  (let ([resolved-path (resolve-module-path a-module-path #f)])
+  (let ([resolved-path (my-resolve-module-path a-module-path)])
     (parameterize ([current-namespace ns])
-      (dynamic-require a-module-path (void)) ;; get the compile-time code running.
+      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
       ((dynamic-require-for-syntax record.rkt 'lookup-module-requires) resolved-path))))
diff --git a/resource/query.rkt b/resource/query.rkt
index 0a40070..0df68b5 100644
--- a/resource/query.rkt
+++ b/resource/query.rkt
@@ -18,5 +18,5 @@
 (define (query a-module-path)
   (let ([resolved-path (normalize-path (resolve-module-path a-module-path #f))])
     (parameterize ([current-namespace ns])
-      (dynamic-require a-module-path (void)) ;; get the compile-time code running.
+      (dynamic-require resolved-path (void)) ;; get the compile-time code running.
       ((dynamic-require-for-syntax record.rkt 'get-records) resolved-path))))
diff --git a/version.rkt b/version.rkt
index d710d3d..b82a2f7 100644
--- a/version.rkt
+++ b/version.rkt
@@ -6,4 +6,4 @@
 
 (provide version)
 (: version String)
-(define version "1.27")
+(define version "1.38")
diff --git a/whalesong.rkt b/whalesong.rkt
index 706bcb0..66b7bb4 100755
--- a/whalesong.rkt
+++ b/whalesong.rkt
@@ -41,7 +41,7 @@
        (if (with-profiling?)
            (profile expr
                     #:threads #t
-                    #:delay 0.01
+                    #:delay 0.0001
                     #:render (lambda (profile)
                                (render profile
                                        #:truncate-source 500)))