From 08867f3576798c8be80d160b46f84e940ef48ad1 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Wed, 26 Aug 2009 21:49:45 -0500 Subject: [PATCH] inline sequence methods on direct-arrays --- .../specialized-arrays/direct/functor/functor.factor | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/basis/specialized-arrays/direct/functor/functor.factor b/basis/specialized-arrays/direct/functor/functor.factor index 37978b6dfa..2ba436cd58 100755 --- a/basis/specialized-arrays/direct/functor/functor.factor +++ b/basis/specialized-arrays/direct/functor/functor.factor @@ -26,13 +26,13 @@ TUPLE: A { length fixnum read-only } ; : ( alien len -- direct-array ) A boa ; inline -M: A length length>> ; -M: A nth-unsafe underlying>> NTH call ; -M: A set-nth-unsafe underlying>> SET-NTH call ; -M: A like drop dup A instance? [ >A' ] unless ; -M: A new-sequence drop ; +M: A length length>> ; inline +M: A nth-unsafe underlying>> NTH call ; inline +M: A set-nth-unsafe underlying>> SET-NTH call ; inline +M: A like drop dup A instance? [ >A' ] unless ; inline +M: A new-sequence drop ; inline -M: A byte-length length>> T heap-size * ; +M: A byte-length length>> T heap-size * ; inline M: A pprint-delims drop \ A'{ \ } ;