change name of render-with-session to render-batch

pull/9/head
Matthew Butterick 10 years ago
parent e2dcd08909
commit 91ff86327d

@ -20,7 +20,7 @@ polcom [filename] (renders individual file)")]
;; todo: take extensions off the comand line ;; todo: take extensions off the comand line
(displayln "Render preproc & ptree files ...") (displayln "Render preproc & ptree files ...")
(require "render.rkt" "file-tools.rkt" "world.rkt") (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 [("clone") (let ([target-path
(if (> (len args) 1) (if (> (len args) 1)
(->path (get args 1)) (->path (get args 1))

@ -4,7 +4,7 @@
(module+ test (require rackunit)) (module+ test (require rackunit))
(provide render render-with-session) (provide render render-batch)
;; for shared use by eval & system ;; for shared use by eval & system
(define nowhere-port (open-output-nowhere)) (define nowhere-port (open-output-nowhere))
@ -91,7 +91,7 @@
;; convenience function for external modules to use ;; convenience function for external modules to use
(define/contract (render-with-session . xs) (define/contract (render-batch . xs)
(() #:rest (listof pathish?) . ->* . void?) (() #:rest (listof pathish?) . ->* . void?)
;; This will trigger rendering of all files. ;; This will trigger rendering of all files.
;; Why not pass #:force #t through with render? ;; Why not pass #:force #t through with render?

Loading…
Cancel
Save