about summary refs log tree commit diff
path: root/tools/magrathea/mg.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tools/magrathea/mg.scm')
-rw-r--r--tools/magrathea/mg.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/tools/magrathea/mg.scm b/tools/magrathea/mg.scm
index 990fb87f90ba..e5b0cb07d4de 100644
--- a/tools/magrathea/mg.scm
+++ b/tools/magrathea/mg.scm
@@ -246,12 +246,13 @@ USAGE
 (define (path args)
   (match args
          [(arg)
-          (print (conc (repository-root)
-                       "/"
-                       (string-intersperse
-                        (target-components
-                         (normalise-target
-                          (guarantee-success (parse-target arg)))) "/")))]
+          (print (apply string-append
+                        (intersperse
+                         (cons (repository-root)
+                               (target-components
+                                (normalise-target
+                                 (guarantee-success (parse-target arg)))))
+                         "/")))]
          [() (mg-error "path command needs a target")]
          [other (mg-error (format "unknown arguments: ~a" other))]))