mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

rename <glil-asm> to <glil-program>

Browse source 
* module/language/glil.scm (<glil-program>): Rename from <glil-asm>.

* module/language/ghil/compile-glil.scm (codegen):
* module/language/glil.scm (parse-glil, unparse-glil):
* module/language/glil/compile-objcode.scm (preprocess, codegen): Adapt
  to naming change.
This commit is contained in:
Andy Wingo 2009-01-11 12:14:07 +01:00
parent c2c82b62f4
commit c850030fdd
4 changed files with 286 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/glil/compile-objcode.scm
View file

@ -55,7 +55,7 @@
(define (preprocess x e)
(record-case x
((<glil-asm> nargs nrest nlocs nexts meta body)
((<glil-program> nargs nrest nlocs nexts meta body)
(let* ((venv (make-venv #:parent e #:nexts nexts #:closure? #f))
(body (map (lambda (x) (preprocess x venv)) body)))
(make-vm-asm #:venv venv #:glil x #:body body)))
@ -109,7 +109,7 @@
(define (codegen glil toplevel)
(record-case glil
((<vm-asm> venv glil body) (record-case glil ((<glil-asm> nargs nrest nlocs nexts meta) ; body?
((<vm-asm> venv glil body) (record-case glil ((<glil-program> nargs nrest nlocs nexts meta) ; body?
(let ((stack '())
(open-bindings '())
(closed-bindings '())