From 787cc893709f801ea405ade47c862d0f1a023555 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 15 Jul 2013 15:31:59 -0700
Subject: [PATCH] tools.ps.windows: use offset-of instead.

---
 basis/tools/ps/windows/windows.factor | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/basis/tools/ps/windows/windows.factor b/basis/tools/ps/windows/windows.factor
index 6076b9fb56..e169befe24 100644
--- a/basis/tools/ps/windows/windows.factor
+++ b/basis/tools/ps/windows/windows.factor
@@ -33,7 +33,7 @@ IN: tools.ps.windows
         f
         NtQueryInformationProcess drop
     ] keep ;
-    
+
 :: read-process-memory ( HANDLE alien offset len -- byte-array )
     HANDLE
     offset alien <displaced-alien>
@@ -53,15 +53,12 @@ IN: tools.ps.windows
         [ dup query-information-process PebBaseAddress>> read-peb ] bi
     ] with-destructors ;
 
-: slot-offset-by-name ( struct-class name -- value/f )
-    [ struct-slots ] dip '[ name>> _ = ] find swap [ offset>> ] when ;
-
 :: read-args ( handle -- string/f )
     handle <win32-handle> &dispose drop
     handle query-information-process :> process-basic-information
     handle process-basic-information PebBaseAddress>>
     [
-        PEB "ProcessParameters" slot-offset-by-name
+        "ProcessParameters" PEB offset-of
         PVOID heap-size
         read-process-memory
         PVOID deref :> args-offset
@@ -70,7 +67,7 @@ IN: tools.ps.windows
         ] [
             handle
             args-offset
-            RTL_USER_PROCESS_PARAMETERS "CommandLine" slot-offset-by-name
+            "CommandLine" RTL_USER_PROCESS_PARAMETERS offset-of
             UNICODE_STRING heap-size
             read-process-memory
             [ handle ] dip
@@ -78,7 +75,7 @@ IN: tools.ps.windows
             utf16n decode
         ] if
     ] [ drop f ] if* ;
-    
+
 : process-list ( -- assoc )
     [
         TH32CS_SNAPALL do-snapshot