From b6607ac70f99ec0e465e3de1d9b397fea9b562ef Mon Sep 17 00:00:00 2001
From: Chouser <chouser@n01se.net>
Date: Fri, 20 Feb 2015 02:54:17 -0500
Subject: forth: Fix bug in (get nil ...)

---
 forth/types.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/forth/types.fs b/forth/types.fs
index 5028bf3..2c4c8e0 100644
--- a/forth/types.fs
+++ b/forth/types.fs
@@ -448,7 +448,7 @@ MalNil
   extend conj ( item nil -- mal-list )
     drop MalList/Empty conj ;;
   extend as-native drop 0 ;;
-  extend get drop 2drop mal-nil ;;
+  extend get 2drop ;;
   extend to-list drop MalList/Empty ;;
   extend empty? drop mal-true ;;
   extend mal-count drop 0 MalInt. ;;
-- 
cgit v1.2.3