From 21b15762e1439ecd3eeddaed1e98982abd42dae8 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 20 Feb 2020 08:32:40 -0800 Subject: [PATCH] complete the path --- quad/quadwriter/render.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/quad/quadwriter/render.rkt b/quad/quadwriter/render.rkt index 32f8fe73..4ac504cf 100644 --- a/quad/quadwriter/render.rkt +++ b/quad/quadwriter/render.rkt @@ -457,8 +457,9 @@ [else (current-directory)])]) (match maybe-dir [(? directory-exists? dir) dir] - [_ (define-values (dir name _) (split-path maybe-dir)) - dir]))) + [(app path->complete-path cp) + (define-values (dir name _) (split-path cp)) + dir]))) (unless (directory-exists? base-dir) (raise-argument-error 'render-pdf "existing directory" base-dir))