basis: removing unnecessary method stack effects.

[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 1e7bc07d691b578c33c0ec5c6d34d2457de4c7a6..2c719fb4d90d1b65a741b09f11011a52cc22de19 100644 (file)
--- a/basis/system-info/windows/windows.factor
+++ b/basis/system-info/windows/windows.factor
@@ -33,7 +33,7 @@ IN: system-info.windows
 : windows-minor ( -- n )
     os-version-struct dwMinorVersion>> ;
 
-M: windows os-version ( -- obj )
+M: windows os-version
     os-version-struct [ dwMajorVersion>> ] [ dwMinorVersion>> ] bi 2array ;
 
 : windows-build# ( -- n )
@@ -67,7 +67,7 @@ M: windows os-version ( -- obj )
 : system-windows-directory ( -- str )
     \ GetSystemWindowsDirectory get-directory ;
 
-M: windows cpus ( -- n )
+M: windows cpus
     system-info dwNumberOfProcessors>> ;
 
 : memory-status ( -- MEMORYSTATUSEX )
@@ -75,28 +75,28 @@ M: windows cpus ( -- n )
     MEMORYSTATUSEX heap-size >>dwLength
     dup GlobalMemoryStatusEx win32-error=0/f ;
 
-M: windows memory-load ( -- n )
+M: windows memory-load
     memory-status dwMemoryLoad>> ;
 
-M: windows physical-mem ( -- n )
+M: windows physical-mem
     memory-status ullTotalPhys>> ;
 
-M: windows available-mem ( -- n )
+M: windows available-mem
     memory-status ullAvailPhys>> ;
 
-M: windows total-page-file ( -- n )
+M: windows total-page-file
     memory-status ullTotalPageFile>> ;
 
-M: windows available-page-file ( -- n )
+M: windows available-page-file
     memory-status ullAvailPageFile>> ;
 
-M: windows total-virtual-mem ( -- n )
+M: windows total-virtual-mem
     memory-status ullTotalVirtual>> ;
 
-M: windows available-virtual-mem ( -- n )
+M: windows available-virtual-mem
     memory-status ullAvailVirtual>> ;
 
-M: windows computer-name ( -- string )
+M: windows computer-name
     MAX_COMPUTERNAME_LENGTH 1 +
     [ <byte-array> dup ] keep uint <ref>
     GetComputerName win32-error=0/f alien>native-string ;