From 1893f72d55d20b98e6debc43c43a48daaf6c0cf3 Mon Sep 17 00:00:00 2001
From: kusumotonorio <47816570+kusumotonorio@users.noreply.github.com>
Date: Mon, 20 Jan 2020 18:53:26 +0900
Subject: [PATCH] unix.factor: Use count

---
 basis/cpu/x86/64/unix/unix.factor | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/basis/cpu/x86/64/unix/unix.factor b/basis/cpu/x86/64/unix/unix.factor
index ffb287f6e0..caef383769 100644
--- a/basis/cpu/x86/64/unix/unix.factor
+++ b/basis/cpu/x86/64/unix/unix.factor
@@ -31,15 +31,8 @@ M: x86.64 reserved-stack-space 0 ;
         f f 3array
     ] map :> reps
     int-reg-reps get float-reg-reps get and [
-        0 :> int-mems!
-        0 :> float-mems!
-        reps [
-            first int-rep? [
-                int-mems 1 + int-mems!
-            ] [
-                float-mems 1 + float-mems!
-            ] if
-        ] each
+        reps [ first int-rep? ] count :> int-mems
+        reps length int-mems - :> float-mems
         int-reg-reps get int-mems + 6 >
         float-reg-reps get float-mems + 8 > or [
             reps [ first t f 3array ] map