From d44b88778e6794e0b54bf075381c65d1a0d56472 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 10 Jan 2008 15:29:11 -1000 Subject: [PATCH] [ first2 ] each -> assoc-each --- core/cpu/x86/64/64.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/cpu/x86/64/64.factor b/core/cpu/x86/64/64.factor index 4f1bbcb833..08952792f6 100755 --- a/core/cpu/x86/64/64.factor +++ b/core/cpu/x86/64/64.factor @@ -4,7 +4,7 @@ USING: alien.c-types arrays cpu.x86.assembler cpu.x86.architecture cpu.x86.intrinsics cpu.x86.sse2 cpu.x86.allot cpu.architecture kernel kernel.private math namespaces sequences generator.registers generator.fixup system -alien alien.compiler alien.structs slots splitting ; +alien alien.compiler alien.structs slots splitting assocs ; IN: cpu.x86.64 PREDICATE: x86-backend amd64-backend @@ -183,7 +183,7 @@ T{ stack-params } "__stack_value" c-type set-c-type-reg-class : split-struct ( pairs -- seq ) [ - [ first2 8 mod zero? [ t , ] when , ] each + [ 8 mod zero? [ t , ] when , ] assoc-each ] { } make { t } split [ empty? not ] subset ; : flatten-large-struct ( type -- )