diff options
Diffstat (limited to 'core.lua')
-rw-r--r-- | core.lua | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/core.lua b/core.lua index 556866c..3e4773a 100644 --- a/core.lua +++ b/core.lua | |||
@@ -2,11 +2,9 @@ | |||
2 | 2 | ||
3 | local dump = require("dump") | 3 | local dump = require("dump") |
4 | local type = require("type") | 4 | local type = require("type") |
5 | local utf8 = require("utf8") | ||
6 | local null = type.null | ||
7 | local assert_arity, assert_type = type.assert_arity, type.assert_type | 5 | local assert_arity, assert_type = type.assert_arity, type.assert_type |
8 | local util = require("util") | 6 | local null = type.null |
9 | local error = util.error | 7 | local error = require("util").error |
10 | 8 | ||
11 | local function fold (kons, knil, r) | 9 | local function fold (kons, knil, r) |
12 | if r == null then | 10 | if r == null then |
@@ -111,7 +109,7 @@ end | |||
111 | env["integer->char"] = function (r) | 109 | env["integer->char"] = function (r) |
112 | assert_arity(r,1,1) | 110 | assert_arity(r,1,1) |
113 | assert_type(r[1], "number") -- todo: check integer | 111 | assert_type(r[1], "number") -- todo: check integer |
114 | return type.character(utf8.char(r[1])) | 112 | return type.character(r[1]) |
115 | end | 113 | end |
116 | 114 | ||
117 | env["string->list"] = function (r) | 115 | env["string->list"] = function (r) |