Arrgh. Add code to count correct number of columns for #\tab.

diff --git a/v7/src/runtime/genio.scm b/v7/src/runtime/genio.scm
index e3c957acf7def03a4581a62aec343ee62143c2f2..302d923d702c8b583e90239d88bd335663d8cf2e 100644 (file)
--- 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)