mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-04 08:40:21 +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) ((<ghil-void> env loc)
'(void)) '(void))
((<ghil-quote> env loc obj) ((<ghil-quote> env loc obj)
`(quote ,obj)) `(,'quote ,obj))
((<ghil-quasiquote> env loc exp) ((<ghil-quasiquote> env loc exp)
`(quasiquote ,(map unparse-ghil exp))) `(,'quasiquote ,(map unparse-ghil exp)))
((<ghil-unquote> env loc exp) ((<ghil-unquote> env loc exp)
`(unquote ,(unparse-ghil exp))) `(,'unquote ,(unparse-ghil exp)))
((<ghil-unquote-splicing> env loc exp) ((<ghil-unquote-splicing> env loc exp)
`(unquote-splicing ,(unparse-ghil exp))) `(,'unquote-splicing ,(unparse-ghil exp)))
;; Variables ;; Variables
((<ghil-ref> env loc var) ((<ghil-ref> env loc var)
(ghil-var-name var)) (ghil-var-name var))