From 8fc10cb2dc9d313aa8c0c9c149f2d559d86d20d2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 10 May 2012 04:56:00 +0000
Subject: 	* interp/io.boot (carriageRetChar?): New. 
 (trimCarriageReturn): Likewise. 	(expandLeadingTabs): Likewise. 	*
 interp/preparse.lisp: Use it. 	* interp/incl.boot: Likewise. 	*
 interp/i-syscmd.boot: Likewise.

---
 src/interp/preparse.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/preparse.lisp')

diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp
index 331aa3e3..0d9e7ff1 100644
--- a/src/interp/preparse.lisp
+++ b/src/interp/preparse.lisp
@@ -181,7 +181,7 @@
     (PROG (LINE IND)
       (SETQ LINE (if $LINELIST
                      (pop $LINELIST)
-              (expand-tabs (|readLine| in-stream))))
+              (|expandLeadingTabs| (|readLine| in-stream))))
       (setq |$preparseLastLine| LINE)
       (and (stringp line) (incf $INDEX))
       (COND
-- 
cgit v1.2.3