From c384724ba8eec3affa21833f41b42f1d62afd405 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 1 Feb 2006 06:13:07 +0000
Subject: [PATCH] Arrgh.  Add code to count correct number of columns for
 #\tab.

---
 v7/src/runtime/genio.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/genio.scm b/v7/src/runtime/genio.scm
index e3c957acf..302d923d7 100644
--- a/v7/src/runtime/genio.scm
+++ b/v7/src/runtime/genio.scm
@@ -1,9 +1,9 @@
 #| -*-Scheme-*-
 
-$Id: genio.scm,v 1.37 2005/12/20 01:52:56 cph Exp $
+$Id: genio.scm,v 1.38 2006/02/01 06:13:07 cph Exp $
 
 Copyright 1991,1993,1995,1996,1999,2002 Massachusetts Institute of Technology
-Copyright 2003,2004,2005 Massachusetts Institute of Technology
+Copyright 2003,2004,2005,2006 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -911,7 +911,10 @@ USA.
 	   (if column
 	       (set-output-buffer-column!
 		ob
-		(if (char=? char #\newline) 0 (fix:+ column 1)))))
+		(case char
+		  ((#\newline) 0)
+		  ((#\tab) (fix:+ column (fix:- 8 (fix:remainder column 8))))
+		  (else (fix:+ column 1))))))
 	 #t)))
 
 (define (output-buffer-in-8-bit-mode? ib)
-- 
2.25.1