shithub: sl

Info  •  Files  •  Log  •  Branches

tools: switch to block buffering mode

--- a/tools/disenv.sl

+++ b/tools/disenv.sl

@@ -1,3 +1,4 @@

+(io-buffer-mode *io-out* :block)

 (for-each (λ (e)

            (let ((v (top-level-value e)))

                 (when (and (fn? v)

--- a/tools/docs-todo.sl

+++ b/tools/docs-todo.sl

@@ -61,6 +61,7 @@

                              (begin (set! nodocs (1+ nodocs))

                                     (warn e "no docs"))))))

          keys))]}

+  (io-buffer-mode *io-out* :block)

   (princ "Environment:")

   (newline)

   (validate top-level-value (sort (environment) <))

--- a/tools/gen.sl

+++ b/tools/gen.sl

@@ -418,7 +418,9 @@

 ))

 (def (new path)

-  (file path :write :create :truncate))

+  (let {[f (file path :write :create :truncate)]}

+    (io-buffer-mode f :block)

+    f))

 (let ((c-header     (buffer)) ; to avoid broken code truncating valid files

       (c-code       (buffer))