Temporarily revert a write barrier change

TODO.FACTOR.txt

@@ -5,6 +5,7 @@
 - delegating generic words with a non-standard picker
   - pass an integer stack pos instead of a quotation
 - yield in a loop starves i/o
+- factoring out the callback quotation
 
 + portability:
 

library/compiler/x86/slots.factor

@@ -22,8 +22,14 @@ M: %write-barrier generate-node ( vop -- )
     #! Mark the card pointed to by vreg.
     drop
     0 input-operand card-bits SHR
-    0 input-operand card-offset [+] card-mark OR
-    rel-absolute-cell rel-cards ;
+    0 scratch card-offset MOV rel-absolute-cell rel-cards
+    0 scratch 0 input-operand ADD
+    0 scratch [] card-mark OR ;
+
+!    drop
+!    0 input-operand card-bits SHR
+!    0 input-operand card-offset [+] card-mark OR
+!    rel-absolute-cell rel-cards ;
 
 M: %set-slot generate-node ( vop -- )
     drop