dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Regression, scm_string fails to test for circular lists

Browse source 
* libguile/string.c (scm_string): Restores the functionality
  where scm_string tests for circular lists

* test-suite/tests/strings.test: add test for circular lists
This commit is contained in:
Michael Gran 2009-08-12 09:21:37 -07:00
commit 3c7cf7f5c0
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test-suite/tests/strings.test
View file

@ -447,7 +447,17 @@
(string-set! s 4 (integer->char #x010300))
(char=? (string-ref s 4) (integer->char #x010300)))))
;;
;; list->string
;;
(with-test-prefix "string"
(pass-if-exception "convert circular list to string"
exception:wrong-type-arg
(let ((foo (list #\a #\b #\c)))
(set-cdr! (cddr foo) (cdr foo))
(apply string foo))))
(with-test-prefix "string-split"
;; in guile 1.6.7 and earlier, character >=128 wasn't matched in the string