Commit e5a20346 authored by simonmar's avatar simonmar
Browse files

[project @ 1999-07-06 15:21:57 by simonmar]

only pop explicit layout contexts with '}'.
parent 3f2df52d
......@@ -522,8 +522,8 @@ lexToken cont glaexts buf =
'}'# -> \ s@PState{context = ctx} ->
case ctx of
(_:ctx') -> cont ITccurly (incLexeme buf) s{context=ctx'}
_ -> lexError "too many '}'s" buf s
(NoLayout:ctx') -> cont ITccurly (incLexeme buf) s{context=ctx'}
_ -> lexError "too many '}'s" buf s
'#'# -> case lookAhead# buf 1# of
')'# | flag glaexts -> cont ITcubxparen (setCurrentPos# buf 2#)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment