basis: some more os require cleanup.

diff --git a/basis/environment/unix/unix.factor b/basis/environment/unix/unix.factor
index 855a4d1404bbd56d0627326432e351b16734ebfd..be4a544c57e6fe2c9a3609748fea61aad67d9efb 100644 (file)
--- a/basis/environment/unix/unix.factor
+++ b/basis/environment/unix/unix.factor
@@ -31,7 +31,4 @@ M: unix set-os-envs-pointer ( malloc -- ) environ set-void* ;
 M: unix (set-os-envs) ( seq -- )
     utf8 strings>alien malloc-byte-array set-os-envs-pointer ;
 
-os {
-    { macosx [ "environment.unix.macosx" require ] }
-    [ drop ]
-} case
+os macosx? [ "environment.unix.macosx" require ] when

diff --git a/basis/unix/utmpx/utmpx.factor b/basis/unix/utmpx/utmpx.factor
index bbfa5771b2816373a458379af03e237c82e9898e..3413cc8b9cb57b070982d24cc97f086a5e07e1c7 100644 (file)
--- a/basis/unix/utmpx/utmpx.factor
+++ b/basis/unix/utmpx/utmpx.factor
@@ -1,9 +1,8 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types alien.data alien.syntax combinators
+USING: accessors alien.c-types alien.data alien.syntax
 continuations io.encodings.string io.encodings.utf8 kernel
-sequences strings calendar system accessors unix unix.time
-unix.ffi calendar.unix vocabs classes.struct ;
+sequences system unix.ffi vocabs ;
 IN: unix.utmpx
 
 CONSTANT: EMPTY 0
@@ -48,7 +47,4 @@ M: unix new-utmpx-record
         produce nip
     ] with-utmpx ;
 
-os {
-    { macosx [ "unix.utmpx.macosx" require ] }
-    { linux [ "unix.utmpx.linux" require ] }
-} case
+"unix.utmpx." os name>> append require