! Copyright (C) 2004, 2005 Mackenzie Straight
-! Copyright (C) 2007, 2008 Slava Pestov
+! Copyright (C) 2007, 2009 Slava Pestov
! Copyright (C) 2007, 2008 Doug Coleman
! See http://factorcode.org/license.txt for BSD license.
-USING: alien assocs continuations destructors
-kernel namespaces accessors sets summary ;
+USING: alien assocs continuations alien.destructors kernel
+namespaces accessors sets summary ;
IN: libc
+ : errno ( -- int )
+ "int" "factor" "err_no" { } alien-invoke ;
+
+ : clear-errno ( -- )
+ "void" "factor" "clear_err_no" { } alien-invoke ;
+
<PRIVATE
: (malloc) ( size -- alien )