help: print in buffered mode, then flush

Sigrid Solveig Haflínudóttir committed 4 months ago

Commit 3bdb4971 parent ab14fc72 files · +12 −6Browse files

Showing the changes to src (1 of 2 files). Show all

Unified · Split

          [docterm (if kind (list 'doc kind term) term)]
          [doc (getprop docterm '*doc* NIL)]
          [formals-list (getprop docterm '*formals-list* NIL)]
-         [term-bound (and (sym? term) (or (bound? term) (get-syntax term)))]}
+         [term-bound (and (sym? term) (or (bound? term) (get-syntax term)))]
+         [buf-mode (io-buffer-mode *io-out*)]}
+    (io-buffer-mode! *io-out* :block)
     (def (deunicode str)
       (if (member +os-name+ '("dos" "windows" "macos" "unknown"))
           (str-map (λ (r) (case r
                          (not term-bound))
                 (princ " (undefined)"))
                 (newline))))
+  (io-buffer-mode! *io-out* buf-mode)
+  (io-flush *io-out*)
   (void)))
 ;;; standard procedures

Keyboard shortcuts