extra/namespaces/lib/lib.factor

   1
   2 ! USING: kernel quotations namespaces sequences hashtables.lib ;
   3
   4 USING: kernel namespaces namespaces.private quotations sequences
   5        hashtables.lib ;
   6
   7 IN: namespaces.lib
   8
   9 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  10
  11 : save-namestack ( quot -- ) namestack >r call r> set-namestack ;
  12
  13 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  14
  15 : make* ( seq -- seq ) [ dup quotation? [ call ] [ ] if ] map ;
  16
  17 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  18
  19 : set* ( val var -- ) namestack* set-hash-stack ;