cache namespace

This is a relatively easy fix, which means I leave the invalid cache not
resolved.

resolve #225

Signed-off-by: Lîm Tsú-thuàn <inbox@dannypsnl.me>

Author: dannypsnl

collect/collector.rkt

@@ -84,16 +84,15 @@
                    #:requires requires))
     (super-new)))
 
-(define (collect-from path)
+(define (collect-from path ns)
   (define text (new text%))
   (send text load-file path)
   (define collector (new collector% [src path] [text text]))
   (define-values (src-dir file dir?) (split-path path))
   (log:info "collect-from path: ~a" path)
   (define in (open-input-string (send text get-text)))
 
-  (try (define ns (make-base-namespace))
-       (define-values (add-syntax done) (make-traversal ns src-dir))
+  (try (define-values (add-syntax done) (make-traversal ns src-dir))
        (parameterize ([current-annotations collector]
                       [current-namespace ns]
                       [current-load-relative-directory src-dir])
@@ -125,4 +124,5 @@ modifier author: Lîm Tsú-thuàn(GitHub: @dannypsnl)
     (bytes->string/utf-8 v)))
 
 (module+ main
-  (record-doc (collect-from (normalize-path "collector.rkt"))))
+  (define ns (make-base-namespace))
+  (record-doc (collect-from (normalize-path "collector.rkt") ns)))

collect/record-maintainer.rkt

@@ -71,13 +71,14 @@
 (define (make-record-maintainer file-path)
   (thread
    (thunk
-    (define cached-record (collect-from file-path))
+    (define ns (make-base-namespace))
+    (define cached-record (collect-from file-path ns))
     (let loop ()
       (match (thread-receive)
         [(list 'update)
          (match-define (struct* record ([created-time created-time])) cached-record)
          (when (< created-time (file-or-directory-modify-seconds file-path))
-           (set! cached-record (collect-from file-path)))]
+           (set! cached-record (collect-from file-path ns)))]
 
         [(list 'require-location? from require)
          (define requires (record-requires cached-record))