unix: don't need << >>.
parent
9b77a785e9
commit
9ad9cd3f14
|
@ -1,12 +1,11 @@
|
||||||
! Copyright (C) 2005, 2010 Slava Pestov.
|
! Copyright (C) 2005, 2010 Slava Pestov.
|
||||||
! Copyright (C) 2008 Eduardo Cavazos.
|
! Copyright (C) 2008 Eduardo Cavazos.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors alien alien.c-types alien.libraries
|
USING: accessors alien.c-types alien.syntax byte-vectors
|
||||||
alien.syntax byte-vectors classes.struct combinators
|
classes.struct combinators.short-circuit combinators.smart
|
||||||
combinators.short-circuit combinators.smart continuations
|
generalizations kernel libc locals math sequences
|
||||||
generalizations io kernel libc locals macros math namespaces
|
sequences.generalizations strings system unix.ffi vocabs.loader
|
||||||
sequences sequences.generalizations stack-checker strings system
|
;
|
||||||
unix.time unix.types vocabs vocabs.loader unix.ffi ;
|
|
||||||
IN: unix
|
IN: unix
|
||||||
|
|
||||||
ERROR: unix-system-call-error args errno message word ;
|
ERROR: unix-system-call-error args errno message word ;
|
||||||
|
@ -88,8 +87,4 @@ M: unix open-file [ open ] unix-system-call ;
|
||||||
|
|
||||||
: unlink-file ( path -- ) [ unlink ] unix-system-call drop ;
|
: unlink-file ( path -- ) [ unlink ] unix-system-call drop ;
|
||||||
|
|
||||||
<<
|
|
||||||
|
|
||||||
{ "unix" "debugger" } "unix.debugger" require-when
|
{ "unix" "debugger" } "unix.debugger" require-when
|
||||||
|
|
||||||
>>
|
|
||||||
|
|
Loading…
Reference in New Issue