easier

pollen/private/command.rkt

@@ -99,7 +99,7 @@ version                print the version" (current-server-port) (make-publish-di
   (parameterize ([current-poly-target (render-target-wanted)]) ;; applies to both cases
     (let loop ([args parsed-args])
       (match args
-        [(== null) (loop (list (current-directory)))]
+        [(? null?) (loop (list (current-directory)))]
         [(list dir) ;; directory mode: one directory as argument
          #:when (directory-exists? dir)
          (define top-dir (very-nice-path dir))
@@ -115,14 +115,14 @@ version                print the version" (current-server-port) (make-publish-di
              ;; (which will synthesize a pagetree if needed, which includes all sources)
              (define batch-to-render
                (map very-nice-path
-                    (cond
+                    (match static-pagetrees
-                      [(null? static-pagetrees)
+                      [(? null?)
                        (message (format "rendering generated pagetree for directory ~a" dir))
                        (cdr (make-project-pagetree dir))]
-                      [else
+                      [_
                        (message (format "rendering preproc & pagetree files in directory ~a" dir))
                        (append preprocs static-pagetrees)])))
-             (keyword-apply render-batch '(#:parallel) (list (render-parallel?)) batch-to-render)
+             (apply render-batch batch-to-render #:parallel (render-parallel?))
              (when (render-with-subdirs?)
                (for ([path (in-list dirlist)]
                      #:when (and (directory-exists? path)
@@ -130,7 +130,7 @@ version                print the version" (current-server-port) (make-publish-di
                     (render-one-dir (->complete-path path))))))]
         [path-args ;; path mode
          (message (format "rendering ~a" (string-join (map ->string path-args) " ")))
-         (keyword-apply render-batch '(#:parallel) (list (render-parallel?)) (map very-nice-path path-args))]))))
+         (apply render-batch (map very-nice-path path-args) #:parallel (render-parallel?))]))))
 
 (define (handle-start)
   (define launch-wanted #f)

pollen/private/ts.rktd

@@ -1 +1 @@
-1556042063
+1556084830