From: David Vázquez <davazp@gmail.com>
Date: Fri, 5 Jul 2013 02:56:10 +0000 (+0200)
Subject: Variable-arity
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b785a5c47181d4a662c90727b061e34e9e1c71c1;p=jscl.git

Variable-arity
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index f9c1cd2..918aee8 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -998,9 +998,7 @@
 (defmacro variable-arity (args &body body)
   (unless (symbolp args)
     (error "`~S' is not a symbol." args))
-  `(variable-arity-call ,args
-                        (lambda (,args)
-                          `(code "return " ,,@body ";" ))))
+  `(variable-arity-call ,args (lambda (,args) `(return  ,,@body))))
 
 (defun num-op-num (x op y)
   (type-check (("x" "number" x) ("y" "number" y))