mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 07:10:20 +02:00
Code Activity

fix bug serializing filenames in source locations

Browse source 
* module/language/glil/compile-assembly.scm (limn-sources): Fix bug
  whereby filename was serialized as a ("foo") instead of "foo".
This commit is contained in:
Andy Wingo 2009-03-14 16:03:34 +01:00 • committed by Andy Wingo
parent eb7ea0450a
commit ff33605d6a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/glil/compile-assembly.scm
View file

@ -57,7 +57,7 @@
((not (equal? new-filename filename)) ((not (equal? new-filename filename))
(lp (cdr in) (lp (cdr in)
`((,addr . (,line . ,column)) `((,addr . (,line . ,column))
(filename ,new-filename) (filename . ,new-filename)
. ,out) . ,out)
new-filename)) new-filename))
((or (null? out) (not (equal? (cdar out) `(,line . ,column)))) ((or (null? out) (not (equal? (cdar out) `(,line . ,column))))