19 lines
580 B
Factor
19 lines
580 B
Factor
|
|
||
|
|
! USING: kernel quotations namespaces sequences hashtables.lib ;
|
||
|
|
|
||
|
|
USING: kernel namespaces namespaces.private quotations sequences
|
||
|
|
hashtables.lib ;
|
||
|
|
|
||
|
|
IN: namespaces.lib
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: save-namestack ( quot -- ) namestack >r call r> set-namestack ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: make* ( seq -- seq ) [ dup quotation? [ call ] [ ] if ] map ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: set* ( val var -- ) namestack* set-hash-stack ;
|