complete the path

5 years ago · 21b15762e1
parent ce6bdfa0de
commit 21b15762e1
1 changed files with 3 additions and 2 deletions
--- 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))