projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
354cdd2
)
Migrate VALUES-ARRAY and VALUES
author
David Vázquez
<davazp@gmail.com>
Sat, 29 Jun 2013 16:29:09 +0000
(18:29 +0200)
committer
David Vázquez
<davazp@gmail.com>
Sat, 29 Jun 2013 16:29:09 +0000
(18:29 +0200)
src/compiler.lisp
patch
|
blob
|
history
diff --git
a/src/compiler.lisp
b/src/compiler.lisp
index
0a01e5d
..
71e74f8
100644
(file)
--- a/
src/compiler.lisp
+++ b/
src/compiler.lisp
@@
-1293,14
+1293,13
@@
(define-builtin values-array (array)
(if *multiple-value-p*
(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*
(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
;;; Javascript FFI