diff options
author | Mark H Weaver <mhw@netris.org> | 2012-10-06 06:04:29 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2012-10-06 06:04:29 -0400 |
commit | 226a56a3d454b18b2b57c4489fdb8efbf4cd8332 (patch) | |
tree | a50591164d2d9a8f537eb57d1d75aac84e4d842e /test-suite/tests | |
parent | 88644a10d82045f429f66f20a47973e48715de1d (diff) | |
download | guile-226a56a3d454b18b2b57c4489fdb8efbf4cd8332.tar.gz |
Improve error reporting in 'append!'
* libguile/list.c (scm_append_x): Report correct argument number when
validating arguments. Validate that the last cdr of each argument is
null or nil. Rename formal rest argument from 'lists' to 'args'.
* test-suite/tests/list.test (append!): Update tests to expect correct
handling of improper lists.
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/list.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/tests/list.test b/test-suite/tests/list.test index dc06f0795..ff31c8605 100644 --- a/test-suite/tests/list.test +++ b/test-suite/tests/list.test @@ -439,15 +439,15 @@ (with-test-prefix "wrong argument" - (expect-fail-exception "improper list and empty list" + (pass-if-exception "improper list and empty list" exception:wrong-type-arg (append! (cons 1 2) '())) - (expect-fail-exception "improper list and list" + (pass-if-exception "improper list and list" exception:wrong-type-arg (append! (cons 1 2) (list 3 4))) - (expect-fail-exception "list, improper list and list" + (pass-if-exception "list, improper list and list" exception:wrong-type-arg (append! (list 1 2) (cons 3 4) (list 5 6))) |