From 59ea8dcebb411791b361ba1676a2be21190bba07 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 8 Jun 2022 17:02:02 +0200
Subject: Resolve TODO in module-dependants.

---
 scripts/module-dependants.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'scripts')

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
-- 
cgit v1.2.3