[Guile-commits] 07/08: Add R7RS xfails due to Guile's ( . 42) syntax extension

[Andy Wingo]

wingo pushed a commit to branch wip-r7rs
in repository guile.

commit 78ea5c51b55e1b59ea7947824255f20de01d890b
Author: Andy Wingo <address@hidden>
Date:   Sat Nov 16 22:19:30 2019 +0100

    Add R7RS xfails due to Guile's ( . 42) syntax extension
    
    * test-suite/tests/r7rs.test ("https://bugs.gnu.org/38238";): Add new
      xfails.
---
 test-suite/tests/r7rs.test | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/test-suite/tests/r7rs.test b/test-suite/tests/r7rs.test
index ec90977..69781a5 100644
--- a/test-suite/tests/r7rs.test
+++ b/test-suite/tests/r7rs.test
@@ -2261,12 +2261,13 @@
         (read (open-input-string str))
         #f)))
 
-(test-read-error "(#;a . b)")
-(test-read-error "(a . #;b)")
-(test-read-error "(a #;. b)")
-(test-read-error "(#;x #;y . z)")
-(test-read-error "(#; #;x #;y . z)")
-(test-read-error "(#; #;x . z)")
+;; These should all use test-read-error instead.
+(failing-test "https://bugs.gnu.org/38238"; #f "(#;a . b)")
+(failing-test "https://bugs.gnu.org/38238"; #f "(a . #;b)")
+(failing-test "https://bugs.gnu.org/38238"; #f "(a #;. b)")
+(failing-test "https://bugs.gnu.org/38238"; #f "(#;x #;y . z)")
+(failing-test "https://bugs.gnu.org/38238"; #f "(#; #;x #;y . z)")
+(failing-test "https://bugs.gnu.org/38238"; #f "(#; #;x . z)")
 
 (test #\a (read (open-input-string "#\\a")))
 (test #\space (read (open-input-string "#\\space")))