summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-11-11 23:12:39 +0100
committerAndy Wingo <wingo@pobox.com>2008-11-11 23:12:39 +0100
commit7c290506607ca9e003dbdacca701e2870f2d777b (patch)
tree24a15a1e360a8e56f0c4a95c2fa45bc630fdb6bd
parent32c8ae2009b8ec3ec395a492dc1720ac5456343a (diff)
downloadguile-7c290506607ca9e003dbdacca701e2870f2d777b.tar.gz
fix unparse-ghil errors with quasiquote
* module/system/il/ghil.scm (unparse-ghil): Fix some issues with quasiquote and unquote[-splicing]. Doh!
-rw-r--r--module/system/il/ghil.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/module/system/il/ghil.scm b/module/system/il/ghil.scm
index 24368f4e4..50db309dc 100644
--- a/module/system/il/ghil.scm
+++ b/module/system/il/ghil.scm
@@ -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))