diff options
author | Andy Wingo <wingo@pobox.com> | 2008-08-03 14:03:47 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-08-03 14:03:47 +0200 |
commit | 96969dc1d645db882768da14f47ce8a4fc699f08 (patch) | |
tree | 7a2c2d4a621820583163d5f3d024665d165b9377 /module/system/il/glil.scm | |
parent | 427d4a0c51e4e186fa20b7d85dccf77b5dae8c88 (diff) | |
download | guile-96969dc1d645db882768da14f47ce8a4fc699f08.tar.gz |
fix recording of source locations
* module/language/scheme/translate.scm (translate, trans)
(make-pmatch-transformers): When recursing into subexpressions, get the
appropriate source location information.
(location): Include the source filename in the location information.
* module/system/il/compile.scm (codegen): Record source locations in more
cases. (This information ends up being part of the procedure metadata,
not the actual codepath.)
* module/system/il/glil.scm (unparse): Don't destructure the source
locations (it's a vector now).
Diffstat (limited to 'module/system/il/glil.scm')
-rw-r--r-- | module/system/il/glil.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/il/glil.scm b/module/system/il/glil.scm index 6a3ec4c17..5afa6fe3e 100644 --- a/module/system/il/glil.scm +++ b/module/system/il/glil.scm @@ -172,7 +172,7 @@ ,@(map unparse body))) ((<glil-bind> vars) `(@bind ,@vars)) ((<glil-unbind>) `(@unbind)) - ((<glil-source> loc) `(@source ,(car loc) ,(cdr loc))) + ((<glil-source> loc) `(@source ,loc)) ;; constants ((<glil-void>) `(void)) ((<glil-const> obj) `(const ,obj)) |