Add mutators to BUFFER records

scheme/input-buffer.scm

@@ -46,17 +46,16 @@
 	       num-cols
 	       can-write
 	       history-pos)
-  (text buffer-text)
-  (pos-line buffer-pos-line)
-  (pos-col buffer-pos-col)
-  (pos-fin-ln buffer-pos-fin-ln)
-  (pos-y buffer-pos-y)
-  (pos-x buffer-pos-x)
-  (num-lines buffer-num-lines)
-  (num-cols buffer-num-cols)
-  (can-write buffer-can-write)
-  (history-pos buffer-history-pos))  
-
+  (text buffer-text set-buffer-text!)
+  (pos-line buffer-pos-line set-buffer-pos-line!)
+  (pos-col buffer-pos-col set-buffer-pos-col!)
+  (pos-fin-ln buffer-pos-fin-ln set-buffer-pos-fin-ln!)
+  (pos-y buffer-pos-y set-buffer-pos-y!)
+  (pos-x buffer-pos-x set-buffer-pos-x!)
+  (num-lines buffer-num-lines set-buffer-num-lines!)
+  (num-cols buffer-num-cols set-buffer-num-cols!)
+  (can-write buffer-can-write set-buffer-can-write!)
+  (history-pos buffer-history-pos set-buffer-history-pos!))
 
 ;;handle input
 (define input

scheme/ncurses-packages.scm

@@ -342,15 +342,25 @@
 
 	  buffer
 	  buffer-text
+	  set-buffer-text!
 	  buffer-pos-line
+	  set-buffer-pos-line!
 	  buffer-pos-col
+	  set-buffer-pos-col!
 	  buffer-pos-fin-ln
+	  set-buffer-pos-fin-ln!
 	  buffer-pos-y
+	  set-buffer-pos-y!
 	  buffer-pos-x
+	  set-buffer-pos-x!
 	  buffer-num-lines
+	  set-buffer-num-lines!
 	  buffer-num-cols
+	  set-buffer-num-cols!
 	  buffer-can-write
+	  set-buffer-can-write!
 	  buffer-history-pos
+	  set-buffer-history-pos!
 	  make-buffer
 	  input
 	  print-command-buffer