diff options
author | Mark H Weaver <mhw@netris.org> | 2014-01-21 03:57:04 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-01-21 03:57:04 -0500 |
commit | ba578eb04460833c5acb1d8f4c08d2facde15e80 (patch) | |
tree | 9fcecf28c314eb14b35efb2c3c18e47bc0dea859 /test-suite/tests/syntax.test | |
parent | a9eca8f5d1bb2a3aabb80b59c54fc355a00a0382 (diff) | |
parent | 611563fb05c18ca52f780746e9963ca9735e9bac (diff) | |
download | guile-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.test | 17 |
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" |