extra/env/env.factor

   1 ! (c)2009 Joe Groff, see bsd license
   2 USING: assocs environment kernel sequences ;
   3 IN: env
   4
   5 SINGLETON: env
   6
   7 INSTANCE: env assoc
   8
   9 M: env at*
  10     drop os-env dup >boolean ;
  11
  12 M: env assoc-size
  13     drop (os-envs) length ;
  14
  15 M: env >alist
  16     drop os-envs >alist ;
  17
  18 M: env set-at
  19     drop set-os-env ;
  20
  21 M: env delete-at
  22     drop unset-os-env ;
  23
  24 M: env clear-assoc
  25     drop os-envs keys [ unset-os-env ] each ;