scanner: fix do_strip bug.

[ocean] / csrc / scanner.mdc

diff --git a/csrc/scanner.mdc b/csrc/scanner.mdc
index 06fef7d04887ba8be71fc859c4966280be2c9906..57f9e21b0c4c916af6b9cda625bcdc444ef0ae0a 100644 (file)
--- a/csrc/scanner.mdc
+++ b/csrc/scanner.mdc
@@ -844,7 +844,7 @@ a flag that tells us whether or not we need to strip.
                                state->offset += 1;
                                n -= 1;
                        }
-                       while (n == 4 && state->node->code.txt[0] == '\t') {
+                       while (n == 4 && state->node->code.txt[state->offset] == '\t') {
                                state->offset += 1;
                                n -= 4;
                        }