diff --git a/command.rkt b/command.rkt index 016efba..6704790 100644 --- a/command.rkt +++ b/command.rkt @@ -20,7 +20,7 @@ polcom [filename] (renders individual file)")] ;; todo: take extensions off the comand line (displayln "Render preproc & ptree files ...") (require "render.rkt" "file-tools.rkt" "world.rkt") - (apply render-with-session (append-map project-files-with-ext (list PREPROC_SOURCE_EXT PTREE_SOURCE_EXT))))] + (apply render-batch (append-map project-files-with-ext (list PREPROC_SOURCE_EXT PTREE_SOURCE_EXT))))] [("clone") (let ([target-path (if (> (len args) 1) (->path (get args 1)) diff --git a/render.rkt b/render.rkt index 78be2b8..4decf7f 100644 --- a/render.rkt +++ b/render.rkt @@ -4,7 +4,7 @@ (module+ test (require rackunit)) -(provide render render-with-session) +(provide render render-batch) ;; for shared use by eval & system (define nowhere-port (open-output-nowhere)) @@ -91,7 +91,7 @@ ;; convenience function for external modules to use -(define/contract (render-with-session . xs) +(define/contract (render-batch . xs) (() #:rest (listof pathish?) . ->* . void?) ;; This will trigger rendering of all files. ;; Why not pass #:force #t through with render?