From 6200e99f58a3bebbd0646cd8ddfbcd1636a50492 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 3 Dec 2008 03:43:52 -0600
Subject: [PATCH] Fix specialized vectors, again

---
 basis/specialized-vectors/alien/alien.factor               | 2 +-
 basis/specialized-vectors/bool/bool.factor                 | 2 +-
 basis/specialized-vectors/char/char.factor                 | 2 +-
 basis/specialized-vectors/double/double.factor             | 2 +-
 basis/specialized-vectors/float/float.factor               | 2 +-
 basis/specialized-vectors/functor/functor.factor           | 2 +-
 basis/specialized-vectors/int/int.factor                   | 2 +-
 basis/specialized-vectors/long/long.factor                 | 2 +-
 basis/specialized-vectors/longlong/longlong.factor         | 2 +-
 basis/specialized-vectors/short/short.factor               | 2 +-
 basis/specialized-vectors/specialized-vectors-tests.factor | 5 +++++
 basis/specialized-vectors/uchar/uchar.factor               | 2 +-
 basis/specialized-vectors/uint/uint.factor                 | 2 +-
 basis/specialized-vectors/ulong/ulong.factor               | 2 +-
 basis/specialized-vectors/ulonglong/ulonglong.factor       | 2 +-
 basis/specialized-vectors/ushort/ushort.factor             | 2 +-
 16 files changed, 20 insertions(+), 15 deletions(-)
 create mode 100644 basis/specialized-vectors/specialized-vectors-tests.factor

diff --git a/basis/specialized-vectors/alien/alien.factor b/basis/specialized-vectors/alien/alien.factor
index 3f6b5fb955..2b9855f6c9 100644
--- a/basis/specialized-vectors/alien/alien.factor
+++ b/basis/specialized-vectors/alien/alien.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.alien ;
-IN: specialized-vector.alien
+IN: specialized-vectors.alien
 
 << "void*" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/bool/bool.factor b/basis/specialized-vectors/bool/bool.factor
index 7bbd1483c2..75d452a1d8 100644
--- a/basis/specialized-vectors/bool/bool.factor
+++ b/basis/specialized-vectors/bool/bool.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.bool ;
-IN: specialized-vector.bool
+IN: specialized-vectors.bool
 
 << "bool" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/char/char.factor b/basis/specialized-vectors/char/char.factor
index eef6161250..c34167cb6c 100644
--- a/basis/specialized-vectors/char/char.factor
+++ b/basis/specialized-vectors/char/char.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.char ;
-IN: specialized-vector.char
+IN: specialized-vectors.char
 
 << "char" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/double/double.factor b/basis/specialized-vectors/double/double.factor
index 408fbe4cb9..5e77162517 100644
--- a/basis/specialized-vectors/double/double.factor
+++ b/basis/specialized-vectors/double/double.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.double ;
-IN: specialized-vector.double
+IN: specialized-vectors.double
 
 << "double" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/float/float.factor b/basis/specialized-vectors/float/float.factor
index 59973deb30..010b4486cf 100644
--- a/basis/specialized-vectors/float/float.factor
+++ b/basis/specialized-vectors/float/float.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.float ;
-IN: specialized-vector.float
+IN: specialized-vectors.float
 
 << "float" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/functor/functor.factor b/basis/specialized-vectors/functor/functor.factor
index 852776c840..0628f8b484 100644
--- a/basis/specialized-vectors/functor/functor.factor
+++ b/basis/specialized-vectors/functor/functor.factor
@@ -39,7 +39,7 @@ M: V >pprint-sequence ;
 
 M: V pprint* pprint-object ;
 
-: V{ [ >V execute ] parse-literal ; parsing
+: V{ \ } [ >V execute ] parse-literal ; parsing
 
 INSTANCE: V growable
 
diff --git a/basis/specialized-vectors/int/int.factor b/basis/specialized-vectors/int/int.factor
index d8dfacf923..d77e6fd214 100644
--- a/basis/specialized-vectors/int/int.factor
+++ b/basis/specialized-vectors/int/int.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.int ;
-IN: specialized-vector.int
+IN: specialized-vectors.int
 
 << "int" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/long/long.factor b/basis/specialized-vectors/long/long.factor
index 2d851fd9d6..a026054f0b 100644
--- a/basis/specialized-vectors/long/long.factor
+++ b/basis/specialized-vectors/long/long.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.long ;
-IN: specialized-vector.long
+IN: specialized-vectors.long
 
 << "long" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/longlong/longlong.factor b/basis/specialized-vectors/longlong/longlong.factor
index e4eea933f0..e272ea0bdf 100644
--- a/basis/specialized-vectors/longlong/longlong.factor
+++ b/basis/specialized-vectors/longlong/longlong.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.longlong ;
-IN: specialized-vector.longlong
+IN: specialized-vectors.longlong
 
 << "longlong" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/short/short.factor b/basis/specialized-vectors/short/short.factor
index 9e2752d868..26ffad4245 100644
--- a/basis/specialized-vectors/short/short.factor
+++ b/basis/specialized-vectors/short/short.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.short ;
-IN: specialized-vector.short
+IN: specialized-vectors.short
 
 << "short" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/specialized-vectors-tests.factor b/basis/specialized-vectors/specialized-vectors-tests.factor
new file mode 100644
index 0000000000..df077ce189
--- /dev/null
+++ b/basis/specialized-vectors/specialized-vectors-tests.factor
@@ -0,0 +1,5 @@
+IN: specialized-vectors.tests
+USING: specialized-vectors.double tools.test kernel sequences ;
+
+[ 3 ] [ double-vector{ 1 2 } 3 over push length ] unit-test
+
diff --git a/basis/specialized-vectors/uchar/uchar.factor b/basis/specialized-vectors/uchar/uchar.factor
index 7aa217a4ba..76cbd154b0 100644
--- a/basis/specialized-vectors/uchar/uchar.factor
+++ b/basis/specialized-vectors/uchar/uchar.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.uchar ;
-IN: specialized-vector.uchar
+IN: specialized-vectors.uchar
 
 << "uchar" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/uint/uint.factor b/basis/specialized-vectors/uint/uint.factor
index ee60b932ce..95800878eb 100644
--- a/basis/specialized-vectors/uint/uint.factor
+++ b/basis/specialized-vectors/uint/uint.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.uint ;
-IN: specialized-vector.uint
+IN: specialized-vectors.uint
 
 << "uint" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/ulong/ulong.factor b/basis/specialized-vectors/ulong/ulong.factor
index 41d453584c..486a9dd513 100644
--- a/basis/specialized-vectors/ulong/ulong.factor
+++ b/basis/specialized-vectors/ulong/ulong.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.ulong ;
-IN: specialized-vector.ulong
+IN: specialized-vectors.ulong
 
 << "ulong" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/ulonglong/ulonglong.factor b/basis/specialized-vectors/ulonglong/ulonglong.factor
index a36d2e703a..c06ccec1c3 100644
--- a/basis/specialized-vectors/ulonglong/ulonglong.factor
+++ b/basis/specialized-vectors/ulonglong/ulonglong.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.ulonglong ;
-IN: specialized-vector.ulonglong
+IN: specialized-vectors.ulonglong
 
 << "ulonglong" define-vector >>
\ No newline at end of file
diff --git a/basis/specialized-vectors/ushort/ushort.factor b/basis/specialized-vectors/ushort/ushort.factor
index 8cb7e25146..6968607919 100644
--- a/basis/specialized-vectors/ushort/ushort.factor
+++ b/basis/specialized-vectors/ushort/ushort.factor
@@ -1,4 +1,4 @@
 USING: specialized-vectors.functor specialized-arrays.ushort ;
-IN: specialized-vector.ushort
+IN: specialized-vectors.ushort
 
 << "ushort" define-vector >>
\ No newline at end of file