21 lines
358 B
Factor
21 lines
358 B
Factor
|
|
||
|
|
USING: kernel lexer parser words quotations compiler.units ;
|
||
|
|
|
||
|
|
IN: sto
|
||
|
|
|
||
|
|
! Use 'sto' to bind a value on the stack to a word.
|
||
|
|
!
|
||
|
|
! Example:
|
||
|
|
!
|
||
|
|
! 10 sto A
|
||
|
|
|
||
|
|
: sto
|
||
|
|
\ 1quotation parsed
|
||
|
|
scan
|
||
|
|
current-vocab create
|
||
|
|
dup set-word
|
||
|
|
literalize parsed
|
||
|
|
\ swap parsed
|
||
|
|
[ define ] parsed
|
||
|
|
\ with-compilation-unit parsed ; parsing
|