From f65a314430299d91a6140703b93a587c18af1158 Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Wed, 3 Nov 1999 20:19:12 +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))