diff options
| author | James LewisMoss <dres@debian.org> | 2001-07-27 23:45:29 -0400 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:29 -0800 |
| commit | f559c149c83da84d0b1c285f0298c84aec564af9 (patch) | |
| tree | f1c91bcb9bb5e6dad87b643127c3f878d80d89ee /strcase.scm | |
| parent | c394920caedf3dac1981bb6b10eeb47fd6e4bb21 (diff) | |
| parent | 87b82b5822ca54228cfa6df29be3ad9d4bc47d16 (diff) | |
| download | slib-debian/2d2-1.tar.gz slib-debian/2d2-1.zip | |
Import Debian changes 2d2-1debian/2d2-1
slib (2d2-1) unstable; urgency=low
* New upstream version
* Revert back to free. Is now so.
slib (2d1-1) unstable; urgency=low
* New upstream version.
* Move to non-free. FSF pointed out license doesn't allow modified
versions to be distributed.
* Get a complete list of copyrights that apply to the source into
copyright file.
* Remove setup for guile 1.3.
* Remove postrm. Just calling install-info (lintian) Move install-info
call to prerm since doc-base doesn't do install-info.
slib (2c9-3) unstable; urgency=low
* Change info location to section "The Algorithmic Language Scheme" to
match up with where guile puts it's files.
* Postinst is running slibconfig now. (Closes: #75891)
slib (2c9-2) unstable; urgency=low
* Stop installing slibconfig (for guile).
* In postinst if /usr/sbin/slibconnfig exists call it (Close: #75843
#75891).
slib (2c9-1) unstable; urgency=low
* New upstream (Closes: #74760)
* replace string-index with strsrch:string-index in http-cgi.scm.
* Add doc-base support (Closes: #31163)
Diffstat (limited to 'strcase.scm')
| -rw-r--r-- | strcase.scm | 22 |
1 files changed, 19 insertions, 3 deletions
diff --git a/strcase.scm b/strcase.scm index b46b223..30b58ad 100644 --- a/strcase.scm +++ b/strcase.scm @@ -4,6 +4,7 @@ ; This code is in the public domain. ; Modified by Aubrey Jaffer Nov 1992. +; SYMBOL-APPEND added by A. Jaffer 2001. ; Authors of the original version were Ken Dickey and Aubrey Jaffer. ;string-upcase, string-downcase, string-capitalize @@ -45,6 +46,21 @@ (string-capitalize! (string-copy str))) (define string-ci->symbol - (if (equal? "a" (symbol->string 'a)) - (lambda (str) (string->symbol (string-downcase str))) - (lambda (str) (string->symbol (string-upcase str))))) + (let ((s2cis (if (equal? "x" (symbol->string 'x)) + string-downcase string-upcase))) + (lambda (str) (string->symbol (s2cis str))))) + +(define symbol-append + (let ((s2cis (if (equal? "x" (symbol->string 'x)) + string-downcase string-upcase))) + (lambda args + (string->symbol + (apply string-append + (map + (lambda (obj) + (cond ((string? obj) (s2cis obj)) + ((number? obj) (s2cis (number->string obj))) + ((symbol? obj) (symbol->string obj)) + ((not obj) "") + (else (slib:error 'wrong-type-to 'symbol-append obj)))) + args)))))) |