diff options
| -rw-r--r-- | src/interp/spad-parser.boot | 5 |
1 files 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 |