From 7cd5a30e614913f8b5af476ef6ac52ec21fbedfc Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 29 Jun 2013 18:29:09 +0200 Subject: [PATCH] Migrate VALUES-ARRAY and VALUES --- src/compiler.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 0a01e5d..71e74f8 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -1293,14 +1293,13 @@ (define-builtin values-array (array) (if *multiple-value-p* - `(code "values.apply(this, " ,array ")") - `(code "pv.apply(this, " ,array ")"))) + `(call (get |values| "apply") this ,array) + `(call (get |pv| "apply") this ,array))) (define-raw-builtin values (&rest args) (if *multiple-value-p* - `(code "values(" ,@(interleave (mapcar #'ls-compile args) ",") ")") - `(code "pv(" ,@(interleave (mapcar #'ls-compile args) ", ") ")"))) - + `(call |values| ,@(mapcar #'ls-compile args)) + `(call |pv| ,@(mapcar #'ls-compile args)))) ;;; Javascript FFI -- 1.7.10.4