Commits

Moritz Heidkamp  committed 3981871

Correctly create dynamic pages' destination directory

  • Participants
  • Parent commits 53c1473

Comments (0)

Files changed (1)

File ate-impl.scm

        (print "compiling dynamic page " page)
        (for-each (match-lambda
                   ((dest-path . content)
-                   (create-directory (pathname-directory dest-path) #t)
-                   (with-output-to-file (make-pathname dest dest-path)
-                     (lambda ()
-                       (serialize-sxml content)))))
+                   (let ((full-dest-path (make-pathname dest dest-path)))
+                     (create-directory (pathname-directory full-dest-path) #t)
+                     (with-output-to-file full-dest-path
+                       (lambda ()
+                         (serialize-sxml content))))))
                  (render-page page)))
       (else (fprintf (current-error-port)
                      "skipping page of unknown type: ~S~%"