diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-08 17:02:02 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-10 23:24:27 +0200 |
| commit | 59ea8dcebb411791b361ba1676a2be21190bba07 (patch) | |
| tree | 4a531053e4609ab6f2773ecb07b168e38185a4dc /scripts | |
| parent | Clean up (calp server routes). (diff) | |
| download | calp-59ea8dcebb411791b361ba1676a2be21190bba07.tar.gz calp-59ea8dcebb411791b361ba1676a2be21190bba07.tar.xz | |
Resolve TODO in module-dependants.
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/module-dependants.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/scripts/module-dependants.scm b/scripts/module-dependants.scm index 95e5bf53..19bccbe8 100755 --- a/scripts/module-dependants.scm +++ b/scripts/module-dependants.scm @@ -18,6 +18,7 @@ (use-modules (hnh util) + (hnh util path) (srfi srfi-1) (ice-9 ftw) (texinfo string-utils) @@ -58,9 +59,7 @@ (define (main args) - ;; TODO this needs to be an absolute filename, for the remove below to work - ;; Fix this once `realpath' is written - (define target-file (cadr args)) + (define target-file (realpath (cadr args))) (define target-forms (reverse (call-with-input-file target-file get-forms))) (define target-module |