diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-02-15 15:28:23 +0100 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-02-15 15:28:23 +0100 |
| commit | 140b324cc26ebc78283427fe388c65c4055add15 (patch) | |
| tree | 0f815606e5c4ded34489c6d25f3930fb2aa0d75f | |
| parent | 8ef151b19ab9d23485518809cb0fec71a861bb93 (diff) | |
| -rw-r--r-- | par/buffers.scm | 6 | ||||
| -rw-r--r-- | par/buffers.sld | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/par/buffers.scm b/par/buffers.scm index 2a2028e..7f699ac 100644 --- a/par/buffers.scm +++ b/par/buffers.scm @@ -25,16 +25,16 @@ ((ro-buffer? buffer) (ro-buffer-string buffer)))) ;; -(define add-buffer-length (make-parameter 100)) +(define *add-buffer-length* (make-parameter 100)) (define (make-add-buffer) - (%make-add-buffer (make-string (add-buffer-length)) 0)) + (%make-add-buffer (make-string (*add-buffer-length*)) 0)) (define (enlarge-add-buffer! add-buffer at-least) (let* ((str (add-buffer-string add-buffer)) (len (string-length str)) ; TODO: Better algo here? - (new (make-string (+ len at-least (add-buffer-length))))) + (new (make-string (+ len at-least (*add-buffer-length*))))) (set-add-buffer-string! add-buffer new) (string-copy! new 0 str))) diff --git a/par/buffers.sld b/par/buffers.sld index 86f07d8..8b35043 100644 --- a/par/buffers.sld +++ b/par/buffers.sld @@ -6,7 +6,7 @@ make-ro-buffer make-add-buffer + *add-buffer-length* add-buffer-used - add-buffer-length add-buffer-append!) (include "buffers.scm")) |