fix linux bootstrap
parent
123f4fbc30
commit
543ca72632
|
@ -62,6 +62,8 @@ MACRO:: unix-system-call ( quot -- )
|
||||||
]
|
]
|
||||||
] ;
|
] ;
|
||||||
|
|
||||||
|
HOOK: open-file os ( path flags mode -- fd )
|
||||||
|
|
||||||
<<
|
<<
|
||||||
|
|
||||||
{
|
{
|
||||||
|
@ -155,8 +157,6 @@ FUNCTION: int shutdown ( int fd, int how ) ;
|
||||||
|
|
||||||
FUNCTION: int open ( char* path, int flags, int prot ) ;
|
FUNCTION: int open ( char* path, int flags, int prot ) ;
|
||||||
|
|
||||||
HOOK: open-file os ( path flags mode -- fd )
|
|
||||||
|
|
||||||
M: unix open-file [ open ] unix-system-call ;
|
M: unix open-file [ open ] unix-system-call ;
|
||||||
|
|
||||||
FUNCTION: DIR* opendir ( char* path ) ;
|
FUNCTION: DIR* opendir ( char* path ) ;
|
||||||
|
|
Loading…
Reference in New Issue