Fix strings search looping

1 files changed, 20 insertions, 19 deletions

diff --git a/boot/definitions.inc b/boot/definitions.inc
index 4d8ab9c..d61a5f6 100644
--- a/boot/definitions.inc
+++ b/boot/definitions.inc
@@ -19,34 +19,35 @@
 .equ TOKEN_END, 13
 .equ TOKEN_TYPE, 14
 .equ TOKEN_RECORD, 15
-.equ TOKEN_RECORD, 16
+.equ TOKEN_UNION, 16
 .equ TOKEN_TRUE, 17
-.equ TOKEN_FASE, 18
+.equ TOKEN_FALSE, 18
 .equ TOKEN_NIL, 19
 .equ TOKEN_XOR, 20
 .equ TOKEN_OR, 21
 .equ TOKEN_RETURN, 22
 .equ TOKEN_CAST, 23
-.equ TOKEN_DEFER, 24
+.equ TOKEN_GOTO, 24
 .equ TOKEN_CASE, 25
 .equ TOKEN_OF, 26
 
+.equ TOKEN_IDENTIFIER, 27
 # The constant should match the character index in the byte_keywords string.
 
-.equ TOKEN_AND, 27
-.equ TOKEN_DOT, 28
-.equ TOKEN_COMMA, 29
-.equ TOKEN_COLON, 30
-.equ TOKEN_SEMICOLON, 31
-.equ TOKEN_LEFT_PAREN, 32
-.equ TOKEN_RIGHT_PAREN, 33
-.equ TOKEN_LEFT_BRACKET, 34
-.equ TOKEN_RIGHT_BRACKET, 35
-.equ TOKEN_HAT, 36
-.equ TOKEN_EQUALS, 37
-.equ TOKEN_PLUS, 38
-.equ TOKEN_MINUS, 39
-.equ TOKEN_ASTERISK, 40
-.equ TOKEN_AT, 41
+.equ TOKEN_AND, 28
+.equ TOKEN_DOT, 29
+.equ TOKEN_COMMA, 30
+.equ TOKEN_COLON, 31
+.equ TOKEN_SEMICOLON, 32
+.equ TOKEN_LEFT_PAREN, 33
+.equ TOKEN_RIGHT_PAREN, 34
+.equ TOKEN_LEFT_BRACKET, 35
+.equ TOKEN_RIGHT_BRACKET, 36
+.equ TOKEN_HAT, 37
+.equ TOKEN_EQUALS, 38
+.equ TOKEN_PLUS, 39
+.equ TOKEN_MINUS, 40
+.equ TOKEN_ASTERISK, 41
+.equ TOKEN_AT, 42
 
-.equ TOKEN_ASSIGN, 42
+.equ TOKEN_ASSIGN, 43