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

-Olin
1999-11-03 20:19:12 +00:00 · 1999-11-03 20:19:12 +00:00 · f65a314430
parent 27e7fe6aff
commit f65a314430
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))