diff options
| author | Andy Wingo <wingo@pobox.com> | 2009-10-16 13:39:24 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2009-10-16 13:39:24 +0200 |
| commit | 4b2afc625816ee1f159cdecb8d1316d9958401f7 (patch) | |
| tree | 6fff18609e0ddc851aae10e8ccb8a620f34d0b14 /module/language/bytecode/spec.scm | |
| parent | a58b7fbb7eb80bdbc0af9aee86a5ac12b9cfeef3 (diff) | |
language-readers receive environment as an arg
* module/language/assembly/spec.scm:
* module/language/brainfuck/spec.scm:
* module/language/bytecode/spec.scm:
* module/language/ecmascript/spec.scm:
* module/language/glil/spec.scm:
* module/language/scheme/spec.scm:
* module/language/tree-il/spec.scm: Language-readers now take two
arguments: the port and the environment. This should allow for
compile-environment-specific reader behavior.
* module/system/base/compile.scm (read-and-compile):
* module/system/repl/common.scm (repl-read): Pass the environment to the
language-reader.
* module/system/repl/repl.scm (meta-reader, prompting-meta-read):
* module/system/repl/command.scm (define-meta-command): Use the second
argument to repl-reader, so we avoid frobbing current-reader.
Diffstat (limited to 'module/language/bytecode/spec.scm')
| -rw-r--r-- | module/language/bytecode/spec.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/bytecode/spec.scm b/module/language/bytecode/spec.scm index 184565b04..b38b0911f 100644 --- a/module/language/bytecode/spec.scm +++ b/module/language/bytecode/spec.scm @@ -1,6 +1,6 @@ ;;; Guile Lowlevel Intermediate Language -;; Copyright (C) 2001 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2009 Free Software Foundation, Inc. ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -32,7 +32,7 @@ (define-language bytecode #:title "Guile Bytecode Vectors" #:version "0.3" - #:reader read + #:reader (lambda (port env) (read port)) #:printer write #:compilers `((objcode . ,compile-objcode)) #:decompilers `((objcode . ,decompile-objcode)) |