diff options
| -rw-r--r-- | tools/magrathea/mg.scm | 13 |
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))])) |