From 4efabd20920397dd776864189550a8a87e666152 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 29 Jun 2013 18:36:11 +0200 Subject: [PATCH] FLET --- src/compiler.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 10783e9..b590962 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -605,11 +605,9 @@ (extend-lexenv (mapcar #'make-function-binding fnames) *environment* 'function))) - `(code "(function(" - ,@(interleave (mapcar #'translate-function fnames) ",") - "){" - ,(ls-compile-block body t) - "})(" ,@(interleave cfuncs ",") ")"))) + `(call (function ,(mapcar #'make-symbol (mapcar #'translate-function fnames)) + ,(ls-compile-block body t)) + ,@cfuncs))) (define-compilation labels (definitions &rest body) (let* ((fnames (mapcar #'car definitions)) -- 1.7.10.4