core: Add the shuffler words but without primitives.

[factor.git] / basis / libc / macosx / macosx.factor

diff --git a/basis/libc/macosx/macosx.factor b/basis/libc/macosx/macosx.factor
index 70388535c16fcbdce58f415c55e7cb879c8f7438..5221846fa7deabe7a421aa78465e88e4b19a359f 100644 (file)
--- a/basis/libc/macosx/macosx.factor
+++ b/basis/libc/macosx/macosx.factor
@@ -145,6 +145,6 @@ FUNCTION: int strerror_r ( int errno, char* buf, size_t buflen )
 
 M: macosx strerror ( errno -- str )
     [
-        1024 [ malloc &free ] keep [ strerror_r ] 2keep drop nip
+        1024 [ malloc &free ] keep [ strerror_r ] keepd nip
         alien>native-string
     ] with-destructors ;