From d76ca3752408711756a322371b6db7c31a8b45df Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Tue, 17 May 2005 15:29:33 +0000
Subject: [PATCH] Use `(values)' to return no return values instead of
 `values'...

---
 scheme/input-buffer.scm | 16 ++++++++--------
 scheme/ncurses.scm      |  4 ++--
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/scheme/input-buffer.scm b/scheme/input-buffer.scm
index 06880cb..f5ba754 100644
--- a/scheme/input-buffer.scm
+++ b/scheme/input-buffer.scm
@@ -85,16 +85,16 @@
        ((= ch key-backspace)
 	(if can-write
 	    (if (< pos-col 3)
-		values
+		(values)
 		(begin
 		  (set! text (remove-from-command-buffer text pos-col))
 		  (set! pos-col (- pos-col 1))))
-	    values))
+	    (values)))
 
        ;; move cursor to previous line Ctrl-p, keycode 16
        ((= ch 16)
  	(if (< pos-fin-ln 2)
- 	    values
+ 	    (values)
  	    (let ((length-prev-line
  		   (string-length
  		    (list-ref text (- pos-line 2)))))
@@ -106,7 +106,7 @@
         ((= ch 141)
  	(let ((last-pos (length text)))
  	  (if (>= pos-line last-pos)
- 	      values
+ 	      (values)
  	      (let ((length-next-line 
  		     (string-length 
  		      (list-ref text pos-line))))
@@ -118,7 +118,7 @@
 
        ((= ch key-left)
 	(if (<= pos-col 2)
-	    values
+	    (values)
 	    (begin
 	      (set! pos-col (- pos-col 1)))))
 
@@ -127,7 +127,7 @@
 			    (list-ref text
 				      (- pos-line 1)))))
 	  (if (>= pos-col (+ line-length 2))
-	      values
+	      (values)
 	      (begin
 		(set! pos-col (+ pos-col 1))))))
 
@@ -189,8 +189,8 @@
 		  (begin
 		    (set! text (add-to-command-buffer ch text pos-col))
 		    (set! pos-col (+ pos-col 1)))
-		values))
-	    values)))
+		  (values)))
+	    (values))))
       (make-buffer text pos-line  pos-col pos-fin-ln pos-y pos-x
 		   num-lines num-cols can-write history-pos)))))
 
diff --git a/scheme/ncurses.scm b/scheme/ncurses.scm
index 24c3318..664dd6f 100755
--- a/scheme/ncurses.scm
+++ b/scheme/ncurses.scm
@@ -1560,7 +1560,7 @@
 	  (cols (getmaxx win)))
       (if (and (= 0 y) (= 0 x))
 	  (if (equal? #\space (winch win))
-	      values
+	      (values)
 	      (begin
 		(wdelch win)
 		(wrefresh win)))
@@ -1586,7 +1586,7 @@
 	  (x (getx win))
 	  (cols (getmaxx win)))
       (if (and (= 0 y) (= 0 x))
-	  values
+	  (values)
 	  (if (= 0 x)
 	      (begin
 		(wmove win (- y 1) (- cols 1))