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 /wttree.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 'wttree.scm')
-rw-r--r-- | wttree.scm | 90 |
1 files changed, 45 insertions, 45 deletions
@@ -1,44 +1,44 @@ -;; "wttree.scm" Weight balanced trees -*-Scheme-*- -;; Copyright (c) 1993-1994 Stephen Adams -;; -;; $Id: wttree.scm,v 1.3 1999/10/11 03:36:29 jaffer Exp $ -;; -;; References: -;; -;; Stephen Adams, Implemeting Sets Efficiently in a Functional -;; Language, CSTR 92-10, Department of Electronics and Computer -;; Science, University of Southampton, 1992 -;; -;; -;; Copyright (c) 1993-94 Massachusetts Institute of Technology -;; -;; This material was developed by the Scheme project at the Massachusetts -;; Institute of Technology, Department of Electrical Engineering and -;; Computer Science. Permission to copy this software, to redistribute -;; it, 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. -;; -;; 2. Users of this software agree to make their best efforts (a) to -;; return to the MIT Scheme project any improvements or extensions that -;; they make, so that these may be included in future releases; and (b) -;; to inform MIT of noteworthy uses of this software. -;; -;; 3. All materials developed as a consequence of the use of this -;; software shall duly acknowledge such use, in accordance with the usual -;; standards of acknowledging credit in academic research. -;; -;; 4. MIT has made no warrantee or representation that the operation of -;; this software will be error-free, and MIT is under no obligation to -;; provide any services, by way of maintenance, update, or otherwise. -;; -;; 5. In conjunction with products arising from the use of this material, -;; there shall be no use of the name of the Massachusetts Institute of -;; Technology nor of any adaptation thereof in any advertising, -;; promotional, or sales literature without prior written consent from -;; MIT in each case. +;;; "wttree.scm" Weight balanced trees -*-Scheme-*- +;;; Copyright (c) 1993-1994 Stephen Adams +;;; +;;; References: +;;; +;;; Stephen Adams, Implemeting Sets Efficiently in a Functional +;;; Language, CSTR 92-10, Department of Electronics and Computer +;;; Science, University of Southampton, 1992 +;;; +;;; +;;; Copyright (c) 1993-94 Massachusetts Institute of Technology +;;; +;;; This material was developed by the Scheme project at the +;;; Massachusetts Institute of Technology, Department of Electrical +;;; Engineering and Computer Science. Permission to copy and modify +;;; this software, to redistribute either the original software or a +;;; modified version, and to use this software 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. +;;; +;;; 2. Users of this software agree to make their best efforts (a) to +;;; return to the MIT Scheme project any improvements or extensions +;;; that they make, so that these may be included in future releases; +;;; and (b) to inform MIT of noteworthy uses of this software. +;;; +;;; 3. All materials developed as a consequence of the use of this +;;; software shall duly acknowledge such use, in accordance with the +;;; usual standards of acknowledging credit in academic research. +;;; +;;; 4. MIT has made no warrantee or representation that the operation +;;; of this software will be error-free, and MIT is under no +;;; obligation to provide any services, by way of maintenance, update, +;;; or otherwise. +;;; +;;; 5. In conjunction with products arising from the use of this +;;; material, there shall be no use of the name of the Massachusetts +;;; Institute of Technology nor of any adaptation thereof in any +;;; advertising, promotional, or sales literature without prior +;;; written consent from MIT in each case. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; @@ -63,7 +63,7 @@ ;; ;;(declare (usual-integrations)) -(define error +(define error:error (case (scheme-implementation-type) ((MITScheme) error) (else slib:error))) @@ -373,7 +373,7 @@ (loop node index)))) (define (error:empty owner) - (error "Operation requires non-empty tree:" owner)) + (error:error "Operation requires non-empty tree:" owner)) (define (local:make-wt-tree-type key<?) @@ -617,8 +617,8 @@ (guarantee-tree tree1 procedure) (guarantee-tree tree2 procedure) (if (not (eq? (tree/type tree1) (tree/type tree2))) - (error "The trees" tree1 'and tree2 'have 'incompatible 'types - (tree/type tree1) 'and (tree/type tree2)))) + (error:error "The trees" tree1 'and tree2 'have 'incompatible 'types + (tree/type tree1) 'and (tree/type tree2)))) ;;;______________________________________________________________________ ;;; |