mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-02 15:40:38 +02:00
Code Activity

fix unparse-ghil errors with quasiquote

Browse source 
* module/system/il/ghil.scm (unparse-ghil): Fix some issues with
  quasiquote and unquote[-splicing]. Doh!
This commit is contained in:
Andy Wingo 2008-11-11 23:12:39 +01:00
parent 32c8ae2009
commit 7c29050660
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/system/il/ghil.scm
View file

@ -430,13 +430,13 @@
((<ghil-void> env loc)
'(void))
((<ghil-quote> env loc obj)
`(quote ,obj))
`(,'quote ,obj))
((<ghil-quasiquote> env loc exp)
`(quasiquote ,(map unparse-ghil exp)))
`(,'quasiquote ,(map unparse-ghil exp)))
((<ghil-unquote> env loc exp)
`(unquote ,(unparse-ghil exp)))
`(,'unquote ,(unparse-ghil exp)))
((<ghil-unquote-splicing> env loc exp)
`(unquote-splicing ,(unparse-ghil exp)))
`(,'unquote-splicing ,(unparse-ghil exp)))
;; Variables
((<ghil-ref> env loc var)
(ghil-var-name var))