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 ) ;
|
||||
|
||||
HOOK: open-file os ( path flags mode -- fd )
|
||||
|
||||
M: unix open-file [ open ] unix-system-call ;
|
||||
|
||||
FUNCTION: DIR* opendir ( char* path ) ;
|
||||
|
|
Loading…
Reference in New Issue