make sure info returns the module name as well as the deps

Signed-off-by: Jordan Wilberding <diginux@gmail.com>
jmshoffs0812 · Mar 7, 2012 · 8f53cda · 8f53cda
1 parent 63c1a33
commit 8f53cda
Show file tree

Hide file tree

Showing 3 changed files with 1,193 additions and 1,176 deletions.
diff --git a/src/joxa/compiler.jxa b/src/joxa/compiler.jxa
@@ -4125,15 +4125,15 @@
      (case (parse ctx input)
        ({:error _}
         [])
-       ({(:module . rest) _}
-        (lists/flatten (lists/foldl (fn (form acc)
-                                        (case form
-                                          ((:require . req-rest)
-                                           ((get-require req-rest []) . acc))
-                                          ((:use . use-rest)
-                                           ((get-use use-rest []) . acc))
-                                          (_
-                                            acc))) [] rest)))))))
+       ({(:module . (module-name . rest)) _}
+        {module-name (lists/flatten (lists/foldl (fn (form acc)
+                                                     (case form
+                                                       ((:require . req-rest)
+                                                        ((get-require req-rest []) . acc))
+                                                       ((:use . use-rest)
+                                                        ((get-use use-rest []) . acc))
+                                                       (_
+                                                        acc))) [] rest))})))))
 
 (defn info (ctx binary options)
   (set-context-all-ctx ctx [{:options (convert-options options [])}])