added "symbol?"

input.scm

@@ -70,3 +70,6 @@ x
 
 (null? (quote ()))
 (null? (list))
+
+(symbol? (quote null))
+(symbol? 1)

proc.go

@@ -132,3 +132,12 @@ func isnull(vals []interface{}) (interface{}, error) {
 
 	return len(s) == 0, nil
 }
+
+func issymbol(vals []interface{}) (interface{}, error) {
+	if err := checkArity(1, vals, "symbol?"); err != nil {
+		return nil, err
+	}
+
+	_, ok := vals[0].(symbol)
+	return ok, nil
+}

skeam.go

@@ -21,18 +21,24 @@ func (s sexp) String() string {
 type symbol string
 
 var universe = &environment{map[symbol]interface{}{
-	"#t":     true,
+	// predefined values
-	"#f":     false,
+	"#t":   true,
-	"null":   nil,
+	"#f":   false,
-	"+":      builtin(addition),
+	"null": nil,
-	"-":      builtin(subtraction),
+
-	"*":      builtin(multiplication),
+	// builtin functions
-	"/":      builtin(division),
+	"+":       builtin(addition),
-	"length": builtin(length),
+	"-":       builtin(subtraction),
-	"list":   builtin(list),
+	"*":       builtin(multiplication),
-	"list?":  builtin(islist),
+	"/":       builtin(division),
-	"not":    builtin(not),
+	"length":  builtin(length),
-	"null?":  builtin(isnull),
+	"list":    builtin(list),
+	"list?":   builtin(islist),
+	"not":     builtin(not),
+	"null?":   builtin(isnull),
+	"symbol?": builtin(issymbol),
+
+	// special forms
 	"begin":  special(begin),
 	"define": special(define),
 	"if":     special(_if),