summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2011-01-05 22:22:15 +0100
committerLudovic Courtès <ludo@gnu.org>2011-01-05 22:22:15 +0100
commit8a41c56af1d155d1987c8eeeac324871efd9131b (patch)
tree439d6b4f65d2ecff6eaf628d3a666bba51a309e9
parent66d86131086d80356bfde1a9ea920f9bfb2b304c (diff)
downloadguile-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.scm4
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)