From e8e89355662f04c69f67f93cc2aef4542b077892 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 29 Jun 2013 18:38:30 +0200 Subject: [PATCH] Migrate LABELS --- src/compiler.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index b590962..af7acb6 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -615,13 +615,13 @@ (extend-lexenv (mapcar #'make-function-binding fnames) *environment* 'function))) - (js!selfcall - `(code ,@(mapcar (lambda (func) - `(code "var " ,(translate-function (car func)) - " = " ,(compile-lambda (cadr func) - `((block ,(car func) ,@(cddr func)))) - ";" )) - definitions)) + (js!selfcall* + `(progn + ,@(mapcar (lambda (func) + `(var (,(make-symbol (translate-function (car func))) + ,(compile-lambda (cadr func) + `((block ,(car func) ,@(cddr func))))))) + definitions)) (ls-compile-block body t)))) -- 1.7.10.4