From 120e596225513b3580f7ecd2a87fc6c2e7dfda32 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 23 Apr 2019 22:47:10 -0700
Subject: [PATCH] easier

---
 pollen/private/command.rkt | 12 ++++++------
 pollen/private/ts.rktd     |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/pollen/private/command.rkt b/pollen/private/command.rkt
index 8b2af00..2948b43 100644
--- a/pollen/private/command.rkt
+++ b/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
-                      [(null? static-pagetrees)
+                    (match 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)
diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd
index 81a973b..d1e63ba 100644
--- a/pollen/private/ts.rktd
+++ b/pollen/private/ts.rktd
@@ -1 +1 @@
-1556042063
+1556084830