about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--type.lua5
1 files changed, 2 insertions, 3 deletions
diff --git a/type.lua b/type.lua index e4fccc9..e2370b6 100644 --- a/type.lua +++ b/type.lua
@@ -299,8 +299,7 @@ function m.procedure (params, body, env, eval)
299 end 299 end
300 -- (lambda x ..) or (lambda (x . y) ..) 300 -- (lambda x ..) or (lambda (x . y) ..)
301 if type.isp(p, "symbol") then 301 if type.isp(p, "symbol") then
302 e[p] = r 302 return rawset(e, p, r)
303 return e
304 end 303 end
305 if p[1] == nil then 304 if p[1] == nil then
306 error("too many arguments", 305 error("too many arguments",
@@ -311,7 +310,7 @@ function m.procedure (params, body, env, eval)
311 rlen, #self.params) 310 rlen, #self.params)
312 end 311 end
313 -- bind car(p) to car(r) 312 -- bind car(p) to car(r)
314 e[p[1]] = r[1] 313 rawset(e, p[1], r[1])
315 -- recurse 314 -- recurse
316 return doargs(p[2], r[2], e) 315 return doargs(p[2], r[2], e)
317 end 316 end