Tidy up soft port invocation

reflow/ansi.scm

@@ -72,12 +72,7 @@
       put-char
       ;; String out, go char by char
       (λ (s) (string-for-each put-char s))
-      ;; Flush
+      #f #f #f)
-      (λ () #f)
-      ;; Get char - write-only, we ignore
-      (λ () #f)
-      ;; Close port - no work to do - we don't take ownership of the child port
-      (λ () #f))
      "w"))
 
   (define (current-sequence)