[Guile-commits] 06/07: Relax srfi-105 source expectations

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 118f0c23c4e08e2c34415e61a4e419dfa748d058
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Wed Mar 3 17:08:12 2021 +0100

    Relax srfi-105 source expectations
    
    * test-suite/tests/srfi-105.test ("curly-infix"): For { EXPR }, allow
    the source to be at the { rather than at EXPR.
---
 test-suite/tests/srfi-105.test | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/srfi-105.test b/test-suite/tests/srfi-105.test
index d212bd0..34ea47b 100644
--- a/test-suite/tests/srfi-105.test
+++ b/test-suite/tests/srfi-105.test
@@ -186,13 +186,19 @@
                     (lambda ()
                       (read-string " { 1.0 }")))))
         (and (equal? (source-property sexp 'line) 0)
-             (equal? (source-property sexp 'column) 3))))
+             (case (source-property sexp 'column)
+               ((1) (throw 'unresolved))
+               ((3) #t)
+               (else #f)))))
     (pass-if "neoteric expression"
       (let ((sexp (with-read-options '(curly-infix positions)
                     (lambda ()
                       (read-string " { f(x) }")))))
         (and (equal? (source-property sexp 'line) 0)
-             (equal? (source-property sexp 'column) 3)))))
+             (case (source-property sexp 'column)
+               ((1) (throw 'unresolved))
+               ((3) #t)
+               (else #f))))))
 
   ;; Verify that neoteric expressions are recognized only within curly braces.
   (pass-if (equal? '(a(x)(y))               '(a (x) (y))))