diff options
| author | pieter | 2004-02-12 10:49:40 +0000 |
|---|---|---|
| committer | pieter | 2004-02-12 10:49:40 +0000 |
| commit | dfc89878c309213e0adca7c764efd293c1ac11b9 (patch) | |
| tree | 6744c8acefa6c25d2411549dbc1fa5cb7446f341 /frontend/scanner.icl | |
| parent | initialise sdef_mark with 0 and remove fields from list of symbols, (diff) | |
PK: fix bug with let .. where .. in ..
Now the parser removes the offisde poistions from the stack instead of the scanner.
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1447 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/scanner.icl')
| -rw-r--r-- | frontend/scanner.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/frontend/scanner.icl b/frontend/scanner.icl index 33f9081..dfff877 100644 --- a/frontend/scanner.icl +++ b/frontend/scanner.icl @@ -1671,7 +1671,8 @@ checkOffside pos index token scanState=:{ss_offsides,ss_scanOptions,ss_input} = (newToken, scanState) // -->> ("new offsides",new_offsides) = gen_end_groups (dec n) scanState | token == InToken - = (token, { scanState & ss_offsides = tl ss_offsides }) +// = (token, { scanState & ss_offsides = tl ss_offsides }) + = (token, scanState) // PK: parser removes offsides = newOffside token scanState where newOffside token scanState=:{ss_offsides,ss_scanOptions} |