From a9de54255010f1b442aecfde4e4e098d8feab485 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 27 Aug 2009 04:09:12 -0500 Subject: [PATCH] A few inline declarations --- basis/alien/c-types/c-types.factor | 6 +++--- basis/bit-arrays/bit-arrays.factor | 2 +- basis/io/buffers/buffers.factor | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor index 9f7ac75558..400af25373 100755 --- a/basis/alien/c-types/c-types.factor +++ b/basis/alien/c-types/c-types.factor @@ -236,9 +236,9 @@ M: c-type stack-size size>> cell align ; GENERIC: byte-length ( seq -- n ) flushable -M: byte-array byte-length length ; +M: byte-array byte-length length ; inline -M: f byte-length drop 0 ; +M: f byte-length drop 0 ; inline : c-getter ( name -- quot ) c-type-getter [ @@ -281,7 +281,7 @@ M: memory-stream stream-read ] [ [ + ] change-index drop ] 2bi ; : byte-array>memory ( byte-array base -- ) - swap dup byte-length memcpy ; + swap dup byte-length memcpy ; inline : array-accessor ( type quot -- def ) [ diff --git a/basis/bit-arrays/bit-arrays.factor b/basis/bit-arrays/bit-arrays.factor index 0b5a63a906..0f87cf4cb6 100644 --- a/basis/bit-arrays/bit-arrays.factor +++ b/basis/bit-arrays/bit-arrays.factor @@ -83,7 +83,7 @@ M: bit-array resize bit-array boa dup clean-up ; inline -M: bit-array byte-length length 7 + -3 shift ; +M: bit-array byte-length length 7 + -3 shift ; inline SYNTAX: ?{ \ } [ >bit-array ] parse-literal ; diff --git a/basis/io/buffers/buffers.factor b/basis/io/buffers/buffers.factor index c9396dd081..82c5326b1d 100644 --- a/basis/io/buffers/buffers.factor +++ b/basis/io/buffers/buffers.factor @@ -42,7 +42,7 @@ M: buffer dispose* ptr>> free ; [ fill>> ] [ pos>> ] bi - ; inline : buffer@ ( buffer -- alien ) - [ pos>> ] [ ptr>> ] bi ; + [ pos>> ] [ ptr>> ] bi ; inline : buffer-read ( n buffer -- byte-array ) [ buffer-length min ] keep