mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-10 05:50:26 +02:00
* tests/syntax.test ("let*"): Changed the `duplicate bindings'
test, dups are allowed in `let*' and are now expected to pass.
This commit is contained in:
parent
fff043abc0
commit
880c285882
2 changed files with 7 additions and 3 deletions
|
@ -1,3 +1,8 @@
|
||||||
|
2001-03-09 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
|
||||||
|
|
||||||
|
* tests/syntax.test ("let*"): Changed the `duplicate bindings'
|
||||||
|
test, dups are allowed in `let*' and are now expected to pass.
|
||||||
|
|
||||||
2001-03-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
|
2001-03-05 Dirk Herrmann <D.Herrmann@tu-bs.de>
|
||||||
|
|
||||||
* lib.scm (run-test-exception): Preserve the original error's
|
* lib.scm (run-test-exception): Preserve the original error's
|
||||||
|
|
|
@ -219,9 +219,8 @@
|
||||||
|
|
||||||
(with-test-prefix "duplicate bindings"
|
(with-test-prefix "duplicate bindings"
|
||||||
|
|
||||||
(pass-if-exception "(let* ((x 1) (x 2)) x)"
|
(pass-if "(let* ((x 1) (x 2)) x)"
|
||||||
exception:duplicate-bindings
|
(let* ((x 1) (x 2)) #t))))
|
||||||
(let* ((x 1) (x 2)) x))))
|
|
||||||
|
|
||||||
(with-test-prefix "letrec"
|
(with-test-prefix "letrec"
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue