Don't allow the left machine of <: to escape through the right machine via the

[external/ragel.git] / ragel / rlscan.rl

diff --git a/ragel/rlscan.rl b/ragel/rlscan.rl
index e9e1733..ab23d86 100644 (file)
--- a/ragel/rlscan.rl
+++ b/ragel/rlscan.rl
@@ -217,7 +217,8 @@ bool Scanner::active()
                return false;
 
        if ( parser == 0 && ! parserExistsError ) {
-               scan_error() << "there is no previous specification name" << endl;
+               scan_error() << "this specification has no name, nor does any previous"
+                       " specification" << endl;
                parserExistsError = true;
        }
 
@@ -835,6 +836,8 @@ void Scanner::endSection( )
                };
                'action' => { token( KW_Action ); };
                'alphtype' => { token( KW_AlphType ); };
+               'prepush' => { token( KW_PrePush ); };
+               'postpop' => { token( KW_PostPop ); };
 
                # FIXME: Enable this post 5.17.
                # 'range' => { token( KW_Range ); };