mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

implement object literals

Browse source 
* module/language/ecmascript/impl.scm:
* module/language/ecmascript/compile-ghil.scm (comp): Object literals.

* module/language/ecmascript/parse.scm (parse-ecmascript): Fix some
  object literal parsing.
This commit is contained in:
Andy Wingo 2009-02-19 17:14:16 +01:00
parent 984dce236b
commit b72880eb17
3 changed files with 25 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
module/language/ecmascript/impl.scm
View file

@ -31,7 +31,8 @@
->primitive ->boolean ->number ->integer ->int32 ->uint32
->uint16 ->string ->object
new-array))
new-array
new-object))
(define *undefined* ((@@ (oop goops) make-unbound)))
@ -227,3 +228,10 @@
(vector-set! vect i (car vals))
(lp (1+ i) (cdr vals)))
(else o))))))
(define (new-object . pairs)
(let ((o (make <js-object>)))
(map (lambda (pair)
(pput o (car pair) (cdr pair)))
pairs)
o))