factor/extra/env/env.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 ;