mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

Fix syntax test

Browse source 
* test-suite/tests/syntax.test ("expressions"): The source location
alist is unordered.
This commit is contained in:
Andy Wingo 2021-04-29 22:04:10 +02:00
parent ee7d18ec41
commit 3bce507407
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/syntax.test
View file

@ -113,7 +113,7 @@
(with-test-prefix "Bad argument list" (with-test-prefix "Bad argument list"
(pass-if-equal "syntax-error location" (pass-if-equal "syntax-error location"
'((line . 1) (column . 2) (filename . "example.scm")) '((filename . "example.scm") (line . 1) (column . 2))
(catch 'syntax-error (catch 'syntax-error
(lambda () (lambda ()
(eval (call-with-input-string "\n (let foo bar)" (eval (call-with-input-string "\n (let foo bar)"