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 /obj2str.scm | |
| parent | c394920caedf3dac1981bb6b10eeb47fd6e4bb21 (diff) | |
| parent | 87b82b5822ca54228cfa6df29be3ad9d4bc47d16 (diff) | |
| download | slib-f559c149c83da84d0b1c285f0298c84aec564af9.tar.gz slib-f559c149c83da84d0b1c285f0298c84aec564af9.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 'obj2str.scm')
| -rw-r--r-- | obj2str.scm | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/obj2str.scm b/obj2str.scm index a8445f6..a9b8313 100644 --- a/obj2str.scm +++ b/obj2str.scm @@ -1,9 +1,9 @@ ;;; "obj2str.scm", write objects to a string. ;Copyright (C) 1993, 1994 Aubrey Jaffer ; -;Permission to copy this software, to redistribute it, and to use it -;for any purpose is granted, subject to the following restrictions and -;understandings. +;Permission to copy this software, to modify it, to redistribute it, +;to distribute modified versions, and to use it for any purpose is +;granted, subject to the following restrictions and understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. @@ -52,13 +52,12 @@ (generic-write obj #f #f (lambda (str) (let ((len (string-length str))) - (if (> len left) - (begin - (set! result (cons (substring str 0 left) result)) - (set! left 0) - #f) - (begin - (set! result (cons str result)) - (set! left (- left len)) - #t))))) + (cond ((> len left) + (set! result (cons (substring str 0 left) result)) + (set! left 0) + #f) + (else + (set! result (cons str result)) + (set! left (- left len)) + #t))))) (reverse-string-append result))) |