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

further ecmascript work

Browse source 
* libguile/vm-i-system.c (drop, return): Declare drop and return as
  popping one arg from the stack.

* module/language/ghil/compile-glil.scm:
* module/language/glil/compile-assembly.scm (make-meta): Adjust so that
  we declare 'drop and 'return calls as popping one arg from the stack.

* module/language/ecmascript/compile-ghil.scm (comp, comp-body): Flesh
  out a bit more. Most significantly, scoping within functions obeys
  javascript semantics better, modulo bits about with() forms.

* module/language/ecmascript/impl.scm: Define some runtime helper
  routines.
* module/language/Makefile.am (SOURCES): Add impl.scm.

* module/language/ecmascript/parse.scm (parse-ecmascript): Minor tweaks.

* module/language/ecmascript/tokenize.scm (read-identifier): Identifiers
  now read as symbols, not strings.
This commit is contained in:
Andy Wingo 2009-02-19 13:55:55 +01:00
parent 8fa6886d7a
commit 131f7d6c71
8 changed files with 271 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/language/ghil/compile-glil.scm
View file

@ -107,8 +107,8 @@
;;;
(define *ia-void* (make-glil-void))
(define *ia-drop* (make-glil-call 'drop 0))
(define *ia-return* (make-glil-call 'return 0))
(define *ia-drop* (make-glil-call 'drop 1))
(define *ia-return* (make-glil-call 'return 1))
(define (make-label) (gensym ":L"))
@ -299,7 +299,7 @@
(push-call! #f 'dup '()))
(push-branch! #f 'br-if L1)
(if (not drop)
(push-call! #f 'drop '()))
(push-code! loc (make-glil-call 'drop 1)))
(lp (cdr exps)))))))))
((<ghil-begin> env loc exps)