remove openbsd shiz
parent
ce84be5f23
commit
f40fc145de
|
@ -142,9 +142,7 @@ os {
|
|||
[ opendir dup [ (io-error) ] unless ] dip
|
||||
dupd curry swap '[ _ closedir io-error ] [ ] cleanup ; inline
|
||||
|
||||
HOOK: find-next-file os ( DIR* -- byte-array )
|
||||
|
||||
M: unix find-next-file ( DIR* -- byte-array )
|
||||
: find-next-file ( DIR* -- byte-array )
|
||||
"dirent" <c-object>
|
||||
f <void*>
|
||||
[ readdir_r 0 = [ (io-error) ] unless ] 2keep
|
||||
|
@ -161,8 +159,6 @@ M: unix (directory-entries) ( path -- seq )
|
|||
[ drop ] produce
|
||||
] with-unix-directory ;
|
||||
|
||||
os openbsd = [ "io.unix.files.openbsd" require ] when
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: stat-mode ( path -- mode )
|
||||
|
|
|
@ -1 +0,0 @@
|
|||
Doug Coleman
|
|
@ -1,7 +0,0 @@
|
|||
! Copyright (C) 2005, 2008 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: unix system ;
|
||||
IN: io.unix.files
|
||||
|
||||
M: openbsd find-next-file ( DIR* -- byte-array )
|
||||
readdir ;
|
|
@ -1 +0,0 @@
|
|||
unportable
|
Loading…
Reference in New Issue