cooperate with global logging envvar

pollen/private/command.rkt

@@ -27,8 +27,7 @@
      (very-nice-path (car args)))))
 
 (define (dispatch command-name)
-  (with-logging-to-port
+  (define dispatch-thunk
-   (current-error-port)
     (λ ()
       (case command-name
         [("test" "xyzzy") (handle-test)]
@@ -40,10 +39,16 @@
         [("reset") (handle-reset (get-first-arg-or-current-dir))]
         [("setup") (handle-setup)]
         [("clone" "publish") (handle-publish)]
-       [else (handle-unknown command-name)]))
+        [else (handle-unknown command-name)])))
+  (cond
+    [(let ([str (getenv "PLTSTDERR")])
+       (and str (regexp-match "@pollen" str))) (dispatch-thunk)]
+    [else (with-logging-to-port
+           (current-error-port)
+           dispatch-thunk
            #:logger pollen-logger
            'info
-   'pollen))
+           'pollen)]))
 
 (define (very-nice-path x)
   (path->complete-path (simplify-path (cleanse-path (->path x)))))

pollen/private/ts.rktd

@@ -1 +1 @@
-1582754309
+1584387500