Showing the changes to src (1 of 2 files). Show all
Unified · Split
| @@ -259,7 +259,9 @@ · 258 unmodified lines | ||
| 259 | 259 | [docterm (if kind (list 'doc kind term) term)] |
| 260 | 260 | [doc (getprop docterm '*doc* NIL)] |
| 261 | 261 | [formals-list (getprop docterm '*formals-list* NIL)] |
| 262 | − [term-bound (and (sym? term) (or (bound? term) (get-syntax term)))]} | |
| 262 | + [term-bound (and (sym? term) (or (bound? term) (get-syntax term)))] | |
| 263 | + [buf-mode (io-buffer-mode *io-out*)]} | |
| 264 | + (io-buffer-mode! *io-out* :block) | |
| 263 | 265 | (def (deunicode str) |
| 264 | 266 | (if (member +os-name+ '("dos" "windows" "macos" "unknown")) |
| 265 | 267 | (str-map (λ (r) (case r |
| @@ -371,6 +373,8 @@ · 105 unmodified lines | ||
| 371 | 373 | (not term-bound)) |
| 372 | 374 | (princ " (undefined)")) |
| 373 | 375 | (newline)))) |
| 376 | + (io-buffer-mode! *io-out* buf-mode) | |
| 377 | + (io-flush *io-out*) | |
| 374 | 378 | (void))) |
| 375 | 379 | |
| 376 | 380 | ;;; standard procedures |