@@ -55,14 +55,15 @@ $ident = [$alphanum \'\_\.\!\#\$\%\&\*\+\/\<\=\>\?\@\\\\\^\|\-\~\:]
5555<line> {
5656 $ws* \> { begin birdtrack }
5757 $ws* \>\>\> { strtoken TokExamplePrompt `andBegin` exampleexpr }
58− $ws* \n { token TokPara `andBegin` para }
5958
60− -- Here, we really want to be able to say
59+ $ws* \n { token TokPara `andBegin` para }
60+ -- ^ Here, we really want to be able to say
6161 -- $ws* (\n | <eof>) { token TokPara `andBegin` para}
6262 -- because otherwise a trailing line of whitespace will result in
6363 -- a spurious TokString at the end of a docstring. We don't have <eof>,
6464 -- though (NOW I realise what it was for :-). To get around this, we always
6565 -- append \n to the end of a docstring.
66+
6667 () { begin string }
6768}
6869