trying to do more profiling

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))))

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))))

version.rkt

@@ -6,4 +6,4 @@
 
 (provide version)
 (: version String)
-(define version "1.27")
+(define version "1.38")

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)))