From b785a5c47181d4a662c90727b061e34e9e1c71c1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 5 Jul 2013 04:56:10 +0200 Subject: [PATCH] Variable-arity --- src/compiler.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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)) -- 1.7.10.4