27 lines
455 B
Factor
27 lines
455 B
Factor
! Copyright (C) 2009 Joe Groff.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: assocs environment kernel sequences ;
|
|
IN: env
|
|
|
|
SINGLETON: env
|
|
|
|
INSTANCE: env assoc
|
|
|
|
M: env at*
|
|
drop os-env dup >boolean ;
|
|
|
|
M: env assoc-size
|
|
drop (os-envs) length ;
|
|
|
|
M: env >alist
|
|
drop os-envs >alist ;
|
|
|
|
M: env set-at
|
|
drop set-os-env ;
|
|
|
|
M: env delete-at
|
|
drop unset-os-env ;
|
|
|
|
M: env clear-assoc
|
|
drop os-envs keys [ unset-os-env ] each ;
|