! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: assocs combinators continuations init kernel sequences
+USING: assocs combinators continuations kernel sequences
splitting system vocabs vocabs.loader ;
IN: environment
: with-os-env ( value key quot -- )
over [ [ [ set-os-env ] 2curry ] [ compose ] bi* ] dip
- [ os-env ] keep [ set-os-env ] 2curry [ ] cleanup ; inline
+ [ os-env ] keep [ set-os-env ] 2curry finally ; inline
{
{ [ os unix? ] [ "environment.unix" require ] }
{ [ os windows? ] [ "environment.windows" require ] }
} cond
-[
- "FACTOR_ROOTS" os-env
- [
+STARTUP-HOOK: [
+ "FACTOR_ROOTS" os-env [
os windows? ";" ":" ? split
[ add-vocab-root ] each
] when*
-] "environment" add-startup-hook
+]