renaming parse-unit to scan-until

db4
Daniel Ehrenberg 2008-03-27 20:52:53 -04:00
parent 7ad1686590
commit 31de812987
4 changed files with 4 additions and 4 deletions

View File

@ -366,7 +366,7 @@ ERROR: bad-number ;
: (M:) CREATE-METHOD parse-definition ;
: parse-unit ( -- object )
: scan-object ( -- object )
scan-word dup parsing?
[ V{ } clone swap execute first ] when ;

View File

@ -171,7 +171,7 @@ IN: bootstrap.syntax
] define-syntax
"FORGET:" [
parse-unit forget
scan-object forget
] define-syntax
"(" [

View File

@ -16,4 +16,4 @@ IN: help.syntax
over add-article >link r> remember-definition ; parsing
: ABOUT:
parse-unit in get vocab set-vocab-help ; parsing
scan-object in get vocab set-vocab-help ; parsing

View File

@ -12,7 +12,7 @@ IN: tuple-syntax
: parse-slots ( accum tuple -- accum tuple )
dup parse-slot-writer
[ parse-unit pick rot set-slot parse-slots ] when* ;
[ scan-object pick rot set-slot parse-slots ] when* ;
: TUPLE{
scan-word construct-empty parse-slots parsed ; parsing