automatic reload of reverse library dependencies

when modifying and reloading a given library, all libraries
that (transitively) use it are also reloaded now.

1 files changed, 6 insertions, 4 deletions

diff --git a/geiser-chez.el b/geiser-chez.el
index b0a668c..1e847ef 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -136,7 +136,9 @@ Return its local name."
      (if (listp (cadr args))
          (format "(geiser:ge:eval '%s '%s)" (car args) (cadr args))
        (format "(geiser:eval '%s '%s)" (car args) (cadr args))))
-    ((load-file compile-file) (format "(geiser:load-file %s)" (car args)))
+    ((load-file compile-file)
+     (let ((lib (geiser-chez--current-library)))
+       (format "(geiser:load-file %s '%s)" (car args) (or lib "#f"))))
     ((no-values) "(geiser:no-values)")
     (t (list (format "geiser:%s" proc) (mapconcat 'identity args " ")))))
 
@@ -193,9 +195,9 @@ Return its local name."
               (col (or (cdr (assoc "column" loc)) (cdr (assoc "char" loc))))
               (name (cdr (assoc "name" loc))))
           (unless (string-prefix-p geiser-chez-scheme-dir file)
-            (insert "\n" file (format ":%s" line))
-            (when col (insert (format ":%s" col)))
-            (when name (insert (format "   (%s)" name)))))))
+            (insert "\n" file (format ":%s:" line))
+            (when col (insert (format "%s:" col)))
+            (when name (insert (format " (%s)" name)))))))
     (geiser-edit--buttonize-files)
     t))