Remove many uses of <int> and *int etc

[factor.git] / basis / system-info / windows / windows.factor

diff --git a/basis/system-info/windows/windows.factor b/basis/system-info/windows/windows.factor
index 0aba5eeff161bbe14ecaa8040516f9ea91cb0a13..5ea68dbbad7e4aa1efbbf36a1cc9436b2dc5311c 100644 (file)
--- a/basis/system-info/windows/windows.factor
+++ b/basis/system-info/windows/windows.factor
@@ -95,10 +95,10 @@ M: winnt available-virtual-mem ( -- n )
 
 : computer-name ( -- string )
     MAX_COMPUTERNAME_LENGTH 1 +
-    [ <byte-array> dup ] keep <uint>
+    [ <byte-array> dup ] keep uint <ref>
     GetComputerName win32-error=0/f alien>native-string ;
  
 : username ( -- string )
     UNLEN 1 +
-    [ <byte-array> dup ] keep <uint>
+    [ <byte-array> dup ] keep uint <ref>
     GetUserName win32-error=0/f alien>native-string ;