diff options
author | Andy Wingo <wingo@pobox.com> | 2008-09-02 00:23:10 -0700 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-09-02 10:30:39 -0700 |
commit | 124c52d8bbfbc20a1184493182e090167685664e (patch) | |
tree | bad37b6acacea5a4f1538d2c4518c65ed4d84f4a /testsuite | |
parent | e0b20b68b0e53084e5d86a5ecfda05ef43d533db (diff) | |
download | guile-124c52d8bbfbc20a1184493182e090167685664e.tar.gz |
fix nested quasiquotes (yeepers)
* module/language/scheme/translate.scm (primitive-syntax-table)
(trans-quasiquote): Fix handling of nested quasiquotes.
* testsuite/Makefile.am (vm_test_files):
* testsuite/t-quasiquote.scm: Add a quasiquote test case.
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/Makefile.am | 1 | ||||
-rw-r--r-- | testsuite/t-quasiquote.scm | 9 |
2 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/Makefile.am b/testsuite/Makefile.am index 04a3e97e7..59ef56587 100644 --- a/testsuite/Makefile.am +++ b/testsuite/Makefile.am @@ -16,6 +16,7 @@ vm_test_files = \ t-map.scm \ t-or.scm \ t-proc-with-setter.scm \ + t-quasiquote.scm \ t-values.scm \ t-records.scm \ t-match.scm \ diff --git a/testsuite/t-quasiquote.scm b/testsuite/t-quasiquote.scm new file mode 100644 index 000000000..6c482b8d8 --- /dev/null +++ b/testsuite/t-quasiquote.scm @@ -0,0 +1,9 @@ +(list + `() + `foo + `(foo) + `(foo bar) + `(1 2) + (let ((x 1)) `,x) + (let ((x 1)) `(,x)) + (let ((x 1)) ``(,x))) |