diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-28 17:58:23 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-28 17:58:23 -0800 |
| commit | 7a128247a61aae34ed4cdc70c3d19b876dec1dd8 (patch) | |
| tree | 65b0a6662e1b080b18ca5eb96d87bd9ce2738721 | |
| parent | 82b46badba16f7b40891e7d5e45bb3da828b6203 (diff) | |
| download | open-axiom-7a128247a61aae34ed4cdc70c3d19b876dec1dd8.tar.gz | |
Fix storeBlanks\!
| -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 |