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

guile-vm is completely self-compiling now!

Browse source 
* module/language/scheme/translate.scm (*the-compile-toplevel-symbol*):
  Reset to compile-toplevel, which requires a patch to guile.

* module/system/base/compile.scm (compile-file): Some foo so that we load
  up the scheme language before call-with-output-file. Fixes compilation
  of (language scheme) modules.

* module/system/base/language.scm (define-language): Don't unquote in
  make-language; refer to it by name instead, and export it.

* module/system/repl/Makefile.am (vm_DATA): Don't compile describe.scm,
  because we really can't deal with goops yet.

* module/system/repl/repl.scm (compile-toplevel): If we're compiling, put
  in a stub definition of start-stack, which is closely tied to the
  interpreter.

* src/vm_loader.c (load-program): Fix a very tricky corruption bug!
This commit is contained in:
Andy Wingo 2008-05-20 11:33:28 +02:00
parent 5163e95138
commit d79d908ef0
6 changed files with 20 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/base/language.scm
View file

@ -21,7 +21,7 @@
(define-module (system base language)
:use-syntax (system base syntax)
:export (define-language lookup-language
:export (define-language lookup-language make-language
language-name language-title language-version language-reader
language-printer language-read-file language-expander
language-translator language-evaluator language-environment))
@ -39,7 +39,7 @@
))
(define-macro (define-language name . spec)
`(define ,name (,make-language :name ',name ,@spec)))
`(define ,name (make-language :name ',name ,@spec)))
(define (lookup-language name)
(let ((m (resolve-module `(language ,name spec))))