diff options
author | Andy Wingo <wingo@pobox.com> | 2008-11-11 23:12:39 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-11-11 23:12:39 +0100 |
commit | 7c290506607ca9e003dbdacca701e2870f2d777b (patch) | |
tree | 24a15a1e360a8e56f0c4a95c2fa45bc630fdb6bd | |
parent | 32c8ae2009b8ec3ec395a492dc1720ac5456343a (diff) | |
download | guile-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.scm | 8 |
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)) |