lexer: implements next with peek

Signed-off-by: Jean Privat <jean@pryen.org>

diff --git a/src/parser/xss/lexer.xss b/src/parser/xss/lexer.xss
index 3bb9e2e..3fe41f0 100644 (file)
--- a/src/parser/xss/lexer.xss
+++ b/src/parser/xss/lexer.xss
@@ -65,10 +65,7 @@ $ end foreach
        # Give and consume the next token
        fun next: Token
        do
-               var result = _token
-               while result == null do
-                       result = get_token
-               end
+               var result = peek
                _token = null
                return result
        end