diff options
| author | P. J. McDermott <pj@pehjota.net> | 2016-02-28 01:28:15 (EST) |
|---|---|---|
| committer | P. J. McDermott <pj@pehjota.net> | 2016-02-28 01:28:15 (EST) |
| commit | 5ee168e734cc0d91e171f22e1269825df7d3cdfa (patch) | |
| tree | 5418804d8f548cf59da65900198633fbfc16518b | |
| parent | 18ace1fbd610396467a41927d12c5b2ce6511b66 (diff) | |
| download | eggshell-5ee168e734cc0d91e171f22e1269825df7d3cdfa.zip eggshell-5ee168e734cc0d91e171f22e1269825df7d3cdfa.tar.gz eggshell-5ee168e734cc0d91e171f22e1269825df7d3cdfa.tar.bz2 | |
eshtrans/frontend: Fix lungetc()
It needn't be called for non-backslash word characters.
| -rw-r--r-- | eshtrans/frontend/lexer.esh | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/eshtrans/frontend/lexer.esh b/eshtrans/frontend/lexer.esh index 75f02c8..8bba0e0 100644 --- a/eshtrans/frontend/lexer.esh +++ b/eshtrans/frontend/lexer.esh @@ -99,7 +99,7 @@ lgetc() lungetc() { - lbufi=$((${lbufi} - 1)) + lbufi=$((${lbufi} - 2)) eval "c=\${lbufv_${lbufi}}" #echo "LUNGETC:$lineno: $lbufi '$c'" >&2 lbufi=$((${lbufi} + 1)) @@ -222,7 +222,6 @@ next() return ;; *) - lungetc next_word return ;; |