From 140b324cc26ebc78283427fe388c65c4055add15 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Thu, 15 Feb 2024 15:28:23 +0100
Subject: par: buffers: Use earmuffs in parameter.

---
 par/buffers.scm | 6 +++---
 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"))
-- 
cgit v1.2.3