summaryrefslogtreecommitdiff
path: root/test-suite/tests/syntax.test
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2014-01-21 03:57:04 -0500
committerMark H Weaver <mhw@netris.org>2014-01-21 03:57:04 -0500
commitba578eb04460833c5acb1d8f4c08d2facde15e80 (patch)
tree9fcecf28c314eb14b35efb2c3c18e47bc0dea859 /test-suite/tests/syntax.test
parenta9eca8f5d1bb2a3aabb80b59c54fc355a00a0382 (diff)
parent611563fb05c18ca52f780746e9963ca9735e9bac (diff)
downloadguile-ba578eb04460833c5acb1d8f4c08d2facde15e80.tar.gz
Merge branch 'stable-2.0'
Conflicts: libguile/read.c test-suite/tests/web-response.test
Diffstat (limited to 'test-suite/tests/syntax.test')
-rw-r--r--test-suite/tests/syntax.test17
1 files changed, 15 insertions, 2 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 4bde635d8..d88e791cc 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -1,7 +1,7 @@
;;;; syntax.test --- test suite for Guile's syntactic forms -*- scheme -*-
;;;;
;;;; Copyright (C) 2001, 2003, 2004, 2005, 2006, 2009, 2010,
-;;;; 2011, 2012, 2013 Free Software Foundation, Inc.
+;;;; 2011, 2012, 2013, 2014 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -1275,7 +1275,20 @@
'((((x y) …) ...)
(((x y) ...) …)))))))
(define-syntax bar (foo x y z))
- (bar a b c))))
+ (bar a b c)))
+
+ ;; This test is given in SRFI-46.
+ (pass-if-equal "custom ellipsis is handled hygienically"
+ '((1) 2 (3) (4))
+ (let-syntax
+ ((f (syntax-rules ()
+ ((f ?e)
+ (let-syntax
+ ((g (syntax-rules --- ()
+ ((g (??x ?e) (??y ---))
+ '((??x) ?e (??y) ---)))))
+ (g (1 2) (3 4)))))))
+ (f ---))))
(with-test-prefix "syntax-error"