From: David Vazquez <davazp@gmail.com>
Date: Fri, 25 Jan 2013 00:20:58 +0000 (+0000)
Subject: MULTIPLE-VALUE-CALL implementation
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3b2c967217fb746024fe129d26641fa88b103269;p=jscl.git

MULTIPLE-VALUE-CALL implementation
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 17dd213..900eef9 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1568,15 +1568,22 @@
   (let ((func (ls-compile func-form)))
     (js!selfcall
       "var args = [values];" *newline*
-      "function values(){" *newline*
+      "values = function(){" *newline*
       (indent "var result = [];" *newline*
+              "result['multiple-value'] = true;" *newline*
               "for (var i=0; i<arguments.length; i++)" *newline*
-              (indent "result.push(arguments[i]);"))
+              (indent "result.push(arguments[i]);" *newline*)
+              "return result;" *newline*)
       "}" *newline*
+      "var vs;" *newline*
       (mapconcat (lambda (form)
-                   (ls-compile form))
+                   (concat "vs = " (ls-compile form t) ";" *newline*
+                           "if (typeof vs === 'object' && 'multiple-value' in vs)" *newline*
+                           (indent "args = args.concat(vs);" *newline*)
+                           "else" *newline*
+                           (indent "args.push(vs);" *newline*)))
                  forms)
-      "return (" func ").apply(window, [args]);")))
+      "return (" func ").apply(window, args);" *newline*)))