mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

Tiny style improvement in the ECMAScript compiler.

Browse source 
Followup to 8891bd1b16 ("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>.
This commit is contained in:
Ludovic Courtès 2011-01-05 22:22:15 +01:00
parent 66d8613108
commit 8a41c56af1
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/ecmascript/compile-tree-il.scm
View file

@ -1,6 +1,6 @@
;;; ECMAScript for Guile ;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -366,7 +366,7 @@
`(apply ,(@implv new-array) `(apply ,(@implv new-array)
,@(map (lambda (x) (comp x e)) args))) ,@(map (lambda (x) (comp x e)) args)))
((object . ,args) ((object . ,args)
`(apply (@ (language ecmascript impl) new-object) `(apply ,(@implv new-object)
,@(map (lambda (x) ,@(map (lambda (x)
(pmatch x (pmatch x
((,prop ,val) ((,prop ,val)