Add values and string-append

1 files changed, 18 insertions, 0 deletions

@@ -29,6 +29,12 @@ end
 -- from what i understand of the spec, it's okay that eqv? and eq? are the same
 env["eq?"] = env["eqv?"]
 
+---[[ VALUES ]]---
+
+env.values = function (r)
+        return table.unpack(type.totable(r))
+end
+
 ---[[ TYPES ]]---
 
 env["boolean?"] = function (r)
@@ -192,6 +198,18 @@ env["/"] = function (r)
                 r[1], r[2])
 end
 
+---[[ STRINGS ]]---
+
+env["string-append"] = function (r)
+        assert_arity(r,1)
+        local ss = type.totable(r)
+        local new = {}
+        for i, s in ipairs(ss) do
+                new[i] = s.v
+        end
+        return type.string(table.concat(new))
+end
+
 ---[[ INPUT / OUTPUT ]]---
 
 env.dump = function (r)