renaming parse-unit to scan-until
parent
7ad1686590
commit
31de812987
|
@ -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 ;
|
||||
|
||||
|
|
|
@ -171,7 +171,7 @@ IN: bootstrap.syntax
|
|||
] define-syntax
|
||||
|
||||
"FORGET:" [
|
||||
parse-unit forget
|
||||
scan-object forget
|
||||
] define-syntax
|
||||
|
||||
"(" [
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue