From 7a128247a61aae34ed4cdc70c3d19b876dec1dd8 Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Thu, 28 Jan 2016 17:58:23 -0800 Subject: Fix storeBlanks\! --- src/interp/spad-parser.boot | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot index 7e196d10..f1aeb286 100644 --- a/src/interp/spad-parser.boot +++ b/src/interp/spad-parser.boot @@ -92,8 +92,9 @@ indentationLocation line == return loc storeBlanks!(line,n) == - #line >= n => nil - stringChar(line,n) := char " " + for i in 0..(n-1) repeat + stringChar(line,i) := char " " + line skipIfBlock rs == [n,:line] := z := preparseReadLine1 rs -- cgit v1.2.3