From 5caa8fb7e0bc5ebe1c2ec2df7b0ae1cc4ceeff8d Mon Sep 17 00:00:00 2001 From: Joel Martin Date: Sat, 4 Oct 2014 22:35:08 -0500 Subject: go: step2_eval basic functionality --- go/src/types/types.go | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'go/src/types/types.go') diff --git a/go/src/types/types.go b/go/src/types/types.go index a212725..e3d8163 100644 --- a/go/src/types/types.go +++ b/go/src/types/types.go @@ -19,3 +19,18 @@ type Vector struct { Val []MalType } +// Symbols +func Symbol_Q(obj MalType) bool { + switch obj.(type) { + case Symbol: return true + default: return false + } +} + +// Lists +func List_Q(obj MalType) bool { + switch obj.(type) { + case List: return true + default: return false + } +} -- cgit v1.2.3