blob: 6d36ca9f3f371e31ebe2450c647e0be4b9f4bace (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-ak,v 1.1 2001/02/27 19:37:47 wiz Exp $
--- scsh/lib/string-lib.scm.orig Wed Sep 15 16:28:11 1999
+++ scsh/lib/string-lib.scm Sun Oct 1 06:44:22 2000
@@ -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))
|
