Fixed an argument-order bug in STRING->LIST.

-Olin
2000-12-22 08:49:23 +00:00 · 2000-12-22 08:49:23 +00:00 · ac9810b803
parent e323eb9cb7
commit ac9810b803
1 changed files with 1 additions and 1 deletions
--- a/scsh/lib/string-lib.scm
+++ b/scsh/lib/string-lib.scm
@ -1139,7 +1139,7 @@
 ;	((< i start) ans))))

 (define (string->list s . maybe-start+end)
-  (apply string-fold-right s cons '() maybe-start+end))
+  (apply string-fold-right cons '() s maybe-start+end))