Updating code to use with-out-parameters

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

diff --git a/basis/system-info/windows/nt/nt.factor b/basis/system-info/windows/nt/nt.factor
index 6d293affbab97e58b593a78f39b7c820b61373dd..804eb25def68191d641bbd403c7d1008c0da4a4c 100644 (file)
--- a/basis/system-info/windows/nt/nt.factor
+++ b/basis/system-info/windows/nt/nt.factor
@@ -12,7 +12,7 @@ M: winnt cpus ( -- n )
 
 : memory-status ( -- MEMORYSTATUSEX )
     MEMORYSTATUSEX <struct>
-    dup class heap-size >>dwLength
+    MEMORYSTATUSEX heap-size >>dwLength
     dup GlobalMemoryStatusEx win32-error=0/f ;
 
 M: winnt memory-load ( -- n )