Bootstrap fix

db4
Slava Pestov 2008-06-25 03:53:36 -05:00
parent b26e6b90f5
commit cf345df3f5
2 changed files with 5 additions and 5 deletions

View File

@ -2,11 +2,6 @@ IN: lexer
USING: help.markup help.syntax kernel math sequences strings
words quotations ;
: $parsing-note ( children -- )
drop
"This word should only be called from parsing words."
$notes ;
HELP: lexer
{ $var-description "Stores the current " { $link lexer } " instance." }
{ $class-description "An object for tokenizing parser input. It has the following slots:"

View File

@ -290,6 +290,11 @@ M: string ($instance)
: $values-x/y ( children -- )
drop { { "x" number } { "y" number } } $values ;
: $parsing-note ( children -- )
drop
"This word should only be called from parsing words."
$notes ;
: $io-error ( children -- )
drop
"Throws an error if the I/O operation fails." $errors ;