From 9feb2c9527294d82592bf35b97f8039f61bbec45 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Sat, 4 Oct 2014 23:40:43 -0500
Subject: go: add step3_env

---
 go/src/types/types.go | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'go/src/types')

diff --git a/go/src/types/types.go b/go/src/types/types.go
index 9fcc78c..2eacaaf 100644
--- a/go/src/types/types.go
+++ b/go/src/types/types.go
@@ -1,5 +1,9 @@
 package types
 
+import (
+    "errors"
+)
+
 //type Error interface {
 //    error
 //}
@@ -43,6 +47,14 @@ func Vector_Q(obj MalType) bool {
     }
 }
 
+func GetSlice(seq MalType) ([]MalType, error) {
+    switch obj := seq.(type) {
+    case List:   return obj.Val, nil
+    case Vector: return obj.Val, nil
+    default: return nil, errors.New("GetSlice called on non-sequence")
+    }
+}
+
 // Hash Maps
 func Hash_Map_Q(obj MalType) bool {
     switch obj.(type) {
-- 
cgit v1.2.3