From df452dfb91987f4020dd67d79dfd38b24a0ee63e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 4 Jul 2014 05:19:29 -0500 Subject: [PATCH] libc: Fix load error on windows. --- basis/libc/libc.factor | 4 ++-- basis/libc/windows/windows.factor | 3 ++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/basis/libc/libc.factor b/basis/libc/libc.factor index fdb8ca6487..15f2db82fb 100644 --- a/basis/libc/libc.factor +++ b/basis/libc/libc.factor @@ -7,6 +7,8 @@ combinators continuations destructors destructors.private kernel math namespaces prettyprint sequences sets summary system vocabs vocabs.parser ; IN: libc +HOOK: strerror os ( errno -- str ) + << "libc." os unparse append require >> LIBRARY: factor @@ -37,8 +39,6 @@ FUNCTION-ALIAS: (free) FUNCTION-ALIAS: (realloc) void* realloc ( void* alien, size_t size ) ; -HOOK: strerror os ( errno -- str ) - FUNCTION: int strerror_r ( int errno, char* buf, size_t buflen ) ; ERROR: libc-error errno message ; diff --git a/basis/libc/windows/windows.factor b/basis/libc/windows/windows.factor index afaecf9b38..541cd7b84a 100644 --- a/basis/libc/windows/windows.factor +++ b/basis/libc/windows/windows.factor @@ -1,4 +1,5 @@ -USING: alien.strings destructors kernel libc system ; +USING: alien.c-types alien.strings alien.syntax destructors +kernel libc system ; IN: libc LIBRARY: libc