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,17 +58,21 @@
     [(_ module-path ...)
      (andmap (lambda (p) (module-path? (syntax-e p)))
              (syntax->list #'(module-path ...)))
-     (syntax/loc stx
-       (begin
-         (begin-for-syntax
-          (let* ([this-module 
-                  (variable-reference->resolved-module-path
-                   (#%variable-reference))]
-                 [key (resolved-module-path-name this-module)])
-            (record-module-require! this-module 'module-path)
-            ...
-            (void)))
-         (void)))]
+     (with-syntax ([(required-path ...)
+                    (map (lambda (p)
+                           (my-resolve-path (syntax-e p)))
+                         (syntax->list #'(module-path ...)))])
+       (syntax/loc stx
+         (begin
+           (begin-for-syntax
+            (let* ([this-module 
+                    (variable-reference->resolved-module-path
+                     (#%variable-reference))]
+                   [key (resolved-module-path-name this-module)])
+              (record-module-require! key 'required-path)
+              ...
+              (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))]))