From 168fb5dc56fee6653816ee8236259940e575c7ec Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Fri, 6 Feb 2015 23:58:41 -0500
Subject: forth: Add step 1, but not maps

---
 forth/types.fs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'forth/types.fs')

diff --git a/forth/types.fs b/forth/types.fs
index 75996f8..7f6b6ea 100644
--- a/forth/types.fs
+++ b/forth/types.fs
@@ -184,6 +184,10 @@ deftype* constant MalList
 
 def-protocol-method conj ( obj this -- this )
 
+MalType%
+  cell% field MalVector/list
+deftype* constant MalVector
+
 \ Examples of extending existing protocol methods to existing type
 MalDefault
   extend conj   ( obj this -- this )
-- 
cgit v1.2.3