From cc5ddd8d78fcdb9b18b438002fe415738a12880b Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Mon, 31 Mar 2008 20:05:06 -0600 Subject: [PATCH] Resolve more add/add* items --- core/bootstrap/image/image.factor | 2 +- core/classes/tuple/tuple.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/core/bootstrap/image/image.factor b/core/bootstrap/image/image.factor index 5d49203554..fc963683b6 100755 --- a/core/bootstrap/image/image.factor +++ b/core/bootstrap/image/image.factor @@ -305,7 +305,7 @@ M: float-array ' float-array emit-dummy-array ; ! Tuples : (emit-tuple) ( tuple -- pointer ) [ tuple>array 1 tail-slice ] - [ class transfer-word tuple-layout ] bi add* [ ' ] map + [ class transfer-word tuple-layout ] bi prefix [ ' ] map tuple type-number dup [ emit-seq ] emit-object ; : emit-tuple ( tuple -- pointer ) diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor index de1e3bddb8..3cacef25a1 100755 --- a/core/classes/tuple/tuple.factor +++ b/core/classes/tuple/tuple.factor @@ -130,7 +130,7 @@ PRIVATE> ] with each ; : all-slot-names ( class -- slots ) - superclasses [ slot-names ] map concat \ class add* ; + superclasses [ slot-names ] map concat \ class prefix ; : compute-slot-permutation ( class old-slot-names -- permutation ) >r all-slot-names r> [ index ] curry map ;