From: Joe Groff <joe@victoria.(none)>
Date: Tue, 8 Jun 2010 20:40:07 +0000 (-0700)
Subject: specialized-vectors: implement binary-object protocol for specialized-vectors
X-Git-Tag: 0.97~4669^2~37
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=3602627ff2dad59712d76352cfc91ec805fb7c25

specialized-vectors: implement binary-object protocol for specialized-vectors
---

diff --git a/basis/specialized-vectors/specialized-vectors.factor b/basis/specialized-vectors/specialized-vectors.factor
index fd36121df1..5c47a9e879 100644
--- a/basis/specialized-vectors/specialized-vectors.factor
+++ b/basis/specialized-vectors/specialized-vectors.factor
@@ -35,6 +35,9 @@ M: V >pprint-sequence ;
 
 M: V pprint* pprint-object ;
 
+M: V >c-ptr underlying>> underlying>> ; inline
+M: V byte-length [ length ] [ element-size ] bi * ; inline
+
 SYNTAX: V{ \ } [ >V ] parse-literal ;
 
 INSTANCE: V growable