update stdlib append after testing

ast/eval.go

@@ -56,7 +56,7 @@ func (t *Token) Eval(funcs FuncTable, vars VarTable) *Token {
         if f == nil {
             if !eligibleForSystemCall {
                 log.Log(log.DEBUG,
-                    "could not find definition for symbol " + ret.Inner.(string), 
+                    "could not find definition for symbol " + ret.Inner.(string),
                     "eval")
                 return nil
             }

ast/print.go

@@ -38,7 +38,8 @@ func (t *Token) String() string {
         for i := t.Inner.(*Token); i != nil; i = i.Next {
             repr = repr + i.String() + " "
         }
-        return repr + ")"
+        // remove trailing space
+        return repr[:len(repr)-1] + ")"
 
     case SYMBOL:
         return "<" + t.Inner.(string) + ">"

stdlib/list.go

@@ -45,9 +45,8 @@ func l_append(input *ast.Token, vars ast.VarTable, funcs ast.FuncTable) *ast.Tok
     src := input
 
     if input.Tag != ast.LIST {
-        // TODO: Position, if I can figure out what to do with it
-        src = &ast.Token{Tag: ast.LIST, Inner: input}
-        return src
+        // TODO: position??
+        return input
     }
 
     // deref inner first
@@ -63,5 +62,5 @@ func l_append(input *ast.Token, vars ast.VarTable, funcs ast.FuncTable) *ast.Tok
     }
     (*iter).Next = input.Next
 
-    return src
+    return *iter
 }