Bootstrap fix
parent
b26e6b90f5
commit
cf345df3f5
|
@ -2,11 +2,6 @@ IN: lexer
|
||||||
USING: help.markup help.syntax kernel math sequences strings
|
USING: help.markup help.syntax kernel math sequences strings
|
||||||
words quotations ;
|
words quotations ;
|
||||||
|
|
||||||
: $parsing-note ( children -- )
|
|
||||||
drop
|
|
||||||
"This word should only be called from parsing words."
|
|
||||||
$notes ;
|
|
||||||
|
|
||||||
HELP: lexer
|
HELP: lexer
|
||||||
{ $var-description "Stores the current " { $link lexer } " instance." }
|
{ $var-description "Stores the current " { $link lexer } " instance." }
|
||||||
{ $class-description "An object for tokenizing parser input. It has the following slots:"
|
{ $class-description "An object for tokenizing parser input. It has the following slots:"
|
||||||
|
|
|
@ -290,6 +290,11 @@ M: string ($instance)
|
||||||
: $values-x/y ( children -- )
|
: $values-x/y ( children -- )
|
||||||
drop { { "x" number } { "y" number } } $values ;
|
drop { { "x" number } { "y" number } } $values ;
|
||||||
|
|
||||||
|
: $parsing-note ( children -- )
|
||||||
|
drop
|
||||||
|
"This word should only be called from parsing words."
|
||||||
|
$notes ;
|
||||||
|
|
||||||
: $io-error ( children -- )
|
: $io-error ( children -- )
|
||||||
drop
|
drop
|
||||||
"Throws an error if the I/O operation fails." $errors ;
|
"Throws an error if the I/O operation fails." $errors ;
|
||||||
|
|
Loading…
Reference in New Issue