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

revert previous change

Browse Source 
svn: r4618
This commit is contained in:
Eli Barzilay 2006-10-17 03:53:05 +00:00
parent 60b7acd56c
commit ff19344bfc
2 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/srfi/13.ss
View File

@ -1,13 +1,10 @@
;; module loader for SRFI-13
(module |13| mzscheme
(require (lib "string.ss" "srfi" "13"))
(provide (all-from (lib "string.ss" "srfi" "13"))))
#; ; re-provides built-ins now
(module |13| mzscheme
(require (lib "string.ss" "srfi" "13"))
(provide (all-from-except (lib "string.ss" "srfi" "13")
s:string-upcase s:string-downcase s:string-titlecase)
(rename s:string-upcase string-upcase)
(rename s:string-downcase string-downcase)
(rename s:string-titlecase string-titlecase)))
s:string-upcase s:string-downcase s:string-titlecase)
(rename s:string-upcase string-upcase)
(rename s:string-downcase string-downcase)
(rename s:string-titlecase string-titlecase)))

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

@ -99,9 +99,7 @@
string-compare string-compare-ci
string= string< string> string<= string>= string<>
string-ci= string-ci< string-ci> string-ci<= string-ci>= string-ci<>
;; use built-in versions
;; s:string-downcase s:string-upcase s:string-titlecase
string-downcase string-upcase string-titlecase
s:string-downcase s:string-upcase s:string-titlecase
string-downcase! string-upcase! string-titlecase!
string-take string-take-right
string-drop string-drop-right
@ -947,7 +945,6 @@
;; Capitalize every contiguous alpha sequence: capitalise
;; first char, lowercase rest.
#; ; use built-in version
(define (s:string-upcase s . maybe-start+end)
(let-string-start+end (start end) 'string-upcase s maybe-start+end
(%string-map char-upcase s start end)))
@ -956,7 +953,6 @@
(let-string-start+end (start end) 'string-upcase! s maybe-start+end
(%string-map! char-upcase s start end)))
#; ; use built-in version
(define (s:string-downcase s . maybe-start+end)
(let-string-start+end (start end) 'string-downcase s maybe-start+end
(%string-map char-downcase s start end)))
@ -984,7 +980,6 @@
(let-string-start+end (start end) 'string-titlecase! s maybe-start+end
(%string-titlecase! s start end)))
#; ; use built-in version
(define (s:string-titlecase s . maybe-start+end)
(let-string-start+end (start end) 'string-titlecase! s maybe-start+end
(let ((ans (substring s start end)))