diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-01-05 22:22:15 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-01-05 22:22:15 +0100 |
commit | 8a41c56af1d155d1987c8eeeac324871efd9131b (patch) | |
tree | 439d6b4f65d2ecff6eaf628d3a666bba51a309e9 | |
parent | 66d86131086d80356bfde1a9ea920f9bfb2b304c (diff) | |
download | guile-8a41c56af1d155d1987c8eeeac324871efd9131b.tar.gz |
Tiny style improvement in the ECMAScript compiler.
Followup to 8891bd1b166b7210c241a0c1a730fc3af7f45b8a ("Fix ECMAScript
object creation.").
* module/language/ecmascript/compile-tree-il.scm (comp): Use `@implv'
for `new-object'. Suggested by Kan-Ru Chen <kanru@kanru.info>.
-rw-r--r-- | module/language/ecmascript/compile-tree-il.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/ecmascript/compile-tree-il.scm b/module/language/ecmascript/compile-tree-il.scm index a5276abe3..c46fd621d 100644 --- a/module/language/ecmascript/compile-tree-il.scm +++ b/module/language/ecmascript/compile-tree-il.scm @@ -1,6 +1,6 @@ ;;; ECMAScript for Guile -;; Copyright (C) 2009 Free Software Foundation, Inc. +;; Copyright (C) 2009, 2011 Free Software Foundation, Inc. ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -366,7 +366,7 @@ `(apply ,(@implv new-array) ,@(map (lambda (x) (comp x e)) args))) ((object . ,args) - `(apply (@ (language ecmascript impl) new-object) + `(apply ,(@implv new-object) ,@(map (lambda (x) (pmatch x ((,prop ,val) |