summaryrefslogtreecommitdiff
path: root/module/system/il/glil.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-08-03 14:03:47 +0200
committerAndy Wingo <wingo@pobox.com>2008-08-03 14:03:47 +0200
commit96969dc1d645db882768da14f47ce8a4fc699f08 (patch)
tree7a2c2d4a621820583163d5f3d024665d165b9377 /module/system/il/glil.scm
parent427d4a0c51e4e186fa20b7d85dccf77b5dae8c88 (diff)
downloadguile-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.scm2
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))