From bf6a574e00a221dfe564ba11148deaa73ba8a229 Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Mon, 16 Feb 2015 20:12:44 -0500
Subject: forth: Add step 6, clean up comment parsing

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

(limited to 'forth/types.fs')

diff --git a/forth/types.fs b/forth/types.fs
index bf159ad..5b8a211 100644
--- a/forth/types.fs
+++ b/forth/types.fs
@@ -309,6 +309,12 @@ drop
 
 MalList new 0 over MalList/count ! constant MalList/Empty
 
+: MalList/rest { list -- list }
+    MalList new
+    list MalList/start @   cell+   over MalList/start !
+    list MalList/count @   1-      over MalList/count ! ;
+
+
 MalType%
   cell% field MalVector/list
 deftype MalVector
-- 
cgit v1.2.3