extra/env/env.factor

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