suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

svn: r8653

Browse Source
This commit is contained in:
Eli Barzilay 2008-02-13 20:24:54 +00:00
parent 572b7f1401
commit 86eb8365c4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/srfi/13/string.ss
View File

@ -1582,8 +1582,8 @@
ans))))) ans)))))
; Alas, Scheme 48's APPLY blows up if you have many, many arguments. ;; Alas, Scheme 48's APPLY blows up if you have many, many arguments.
;(define (string-concatenate strings) (apply string-append strings)) ;;(define (string-concatenate strings) (apply string-append strings))
;; Here it is written out. I avoid using REDUCE to add up string lengths ;; Here it is written out. I avoid using REDUCE to add up string lengths
;; to avoid non-R5RS dependencies. ;; to avoid non-R5RS dependencies.
@ -1602,7 +1602,7 @@
;; Defined by R5RS, so commented out here. ;; Defined by R5RS, so commented out here.
;(define (string-append . strings) (string-concatenate strings)) ;;(define (string-append . strings) (string-concatenate strings))
;; string-concatenate-reverse string-list [final-string end] -> string ;; string-concatenate-reverse string-list [final-string end] -> string
;; string-concatenate-reverse/shared string-list [final-string end] -> string ;; string-concatenate-reverse/shared string-list [final-string end] -> string