fixing a few type errors

js-assembler/package.rkt

@@ -101,7 +101,11 @@
    [(ModuleSource? src)
     (let ([name (rewrite-path (ModuleSource-path src))]
           [text (query:query `(file ,(path->string (ModuleSource-path src))))]
+          [module-requires (query:lookup-module-requires (ModuleSource-path src))]
           [bytecode (parse-bytecode (ModuleSource-path src))])
+      (log-debug "~a requires ~a"
+                 (ModuleSource-path src)
+                 module-requires)
       (make-UninterpretedSource
        (format "
 MACHINE.modules[~s] =

lang/js/js.rkt

@@ -58,6 +58,10 @@
     [(_ module-path ...)
      (andmap (lambda (p) (module-path? (syntax-e p)))
              (syntax->list #'(module-path ...)))
+     (with-syntax ([(required-path ...)
+                    (map (lambda (p)
+                           (my-resolve-path (syntax-e p)))
+                         (syntax->list #'(module-path ...)))])
        (syntax/loc stx
          (begin
            (begin-for-syntax
@@ -65,10 +69,10 @@
                     (variable-reference->resolved-module-path
                      (#%variable-reference))]
                    [key (resolved-module-path-name this-module)])
-            (record-module-require! this-module 'module-path)
+              (record-module-require! key 'required-path)
               ...
               (void)))
-         (void)))]
+           (void))))]
     [else
      (raise-syntax-error #f "Expected module path" stx)]))
      

lang/js/query.rkt

@@ -12,7 +12,7 @@
                   [follow-redirection (path? . -> . path?)]
                   [collect-redirections-to (path? . -> . (listof path?))]
 
-                  [lookup-module-requires (path? . -> . (listof module-path?))])
+                  [lookup-module-requires (path? . -> . (listof path?))])
 
 (define-runtime-path record.rkt "record.rkt")
 (define ns (make-base-empty-namespace))

make/make.rkt

@@ -46,7 +46,8 @@
    [(SexpSource? a-source)
     "<SexpSource>"]
    [(ModuleSource? a-source)
-    "<ModuleSource>"]))
+    (format "<ModuleSource ~a>"
+            (ModuleSource-path a-source))]))