core: Add the shuffler words but without primitives.

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

diff --git a/basis/libc/windows/windows.factor b/basis/libc/windows/windows.factor
index b328df3ff9a25972da7e622fd0cb06750bd9619a..449031882da06888bb19291f96bbe659102e588b 100644 (file)
--- a/basis/libc/windows/windows.factor
+++ b/basis/libc/windows/windows.factor
@@ -111,6 +111,6 @@ FUNCTION: int strerror_s ( char *buffer, size_t numberOfElements, int errnum )
 M: windows strerror ( errno -- str )
     [
         [ 1024 [ malloc &free ] keep ] dip
-        [ strerror_s drop ] 3keep 2drop
+        [ strerror_s drop ] keepdd
         utf8 alien>string
     ] with-destructors ;