From ac9810b8033a1625f1a124288451a2e5e42e342a Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 22 Dec 2000 08:49:23 +0000
Subject: [PATCH] Fixed an argument-order bug in STRING->LIST.     -Olin

---
 scsh/lib/string-lib.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/lib/string-lib.scm b/scsh/lib/string-lib.scm
index a53e362..0282b36 100644
--- 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))