Commit 75941bea authored by Kevin Cozens's avatar Kevin Cozens

Added SIOD compatability routines string-downcase and string-upcase.

parent f0e90007
......@@ -182,8 +182,8 @@
)
)
(define (substring-equal? str str2 start end)
(string=? str (substring str2 start end))
(define (string-downcase str)
(list->string (map char-downcase (string->list str)))
)
(define (string-trim str)
......@@ -219,6 +219,14 @@
)
)
(define (string-upcase str)
(list->string (map char-upcase (string->list str)))
)
(define (substring-equal? str str2 start end)
(string=? str (substring str2 start end))
)
(define (unbreakupstr stringlist sep)
(let ((str (car stringlist)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment