mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

compilation passes return third value: the continuation environment

Browse source 
* module/system/base/compile.scm: Expect compile passes to produce three
  values, not two. The third is the "continuation environment", the
  environment that can be used to compile a subsequent expression from
  the same source language. For example, expansion-time side effects can
  set the current module, which would be reflected appropriately in the
  continuation environment.

* module/language/assembly/compile-bytecode.scm:
* module/language/bytecode/spec.scm:
* module/language/ecmascript/compile-ghil.scm:
* module/language/ghil/compile-glil.scm:
* module/language/glil/spec.scm:
* module/language/objcode/spec.scm:
* module/language/scheme/compile-ghil.scm:
* module/system/base/compile.scm: Update compile passes to return a
  continuation environment.
This commit is contained in:
Andy Wingo 2009-04-16 15:20:40 +02:00
parent 275baf0113
commit b41b92c9d1
8 changed files with 19 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

15
module/language/scheme/compile-ghil.scm
View file

@ -56,6 +56,8 @@
((pair? env) (cddr env))
(else (error "bad environment" env))))
(define (make-cenv module lexicals externals)
(cons module (cons lexicals externals)))
@ -65,11 +67,14 @@
(and=> (cenv-module e) set-current-module)
(call-with-ghil-environment (cenv-ghil-env e) '()
(lambda (env vars)
(values (make-ghil-lambda env #f vars #f '() (translate-1 env #f x))
(and e
(cons* (cenv-module e)
(ghil-env-parent env)
(cenv-externals e)))))))))
(let ((x (make-ghil-lambda env #f vars #f '()
(translate-1 env #f x))))
(values x
(and e
(cons* (cenv-module e)
(ghil-env-parent env)
(cenv-externals e)))
(make-cenv (current-module) '() '()))))))))
;;;