mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

merge from 1.8 branch

Browse source
This commit is contained in:
Kevin Ryde 2006-04-16 23:43:48 +00:00
parent 6e7d5622ee
commit cd5fea8dbe
60 changed files with 115 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ice-9/ChangeLog
View file

@ -1,3 +1,14 @@
2006-03-04 Ludovic Courtès <ludovic.courtes@laas.fr>
* ice-9/boot-9.scm (make-autoload-interface): Don't call `set-car!' if
the autoload interface has already been removed from MODULE's uses.
This bug showed up when using a given module both with `autoload' and
`use-module'.
2006-02-21 Kevin Ryde <user42@zip.com.au>
* format.scm (format:out-dollar): Use format:out-inf-nan per ~f etc.
2006-02-12 Marius Vollmer <mvo@zagadka.de> 2006-02-12 Marius Vollmer <mvo@zagadka.de>
* deprecated.scm (make-uniform-array): Don't pass the prototype as * deprecated.scm (make-uniform-array): Don't pass the prototype as

2
ice-9/Makefile.am
View file

@ -1,6 +1,6 @@
## Process this file with automake to produce Makefile.in. ## Process this file with automake to produce Makefile.in.
## ##
## Copyright (C) 1998,1999,2000,2001,2003, 2004 Free Software Foundation, Inc. ## Copyright (C) 1998,1999,2000,2001,2003, 2004, 2006 Free Software Foundation, Inc.
## ##
## This file is part of GUILE. ## This file is part of GUILE.
## ##

2
ice-9/and-let-star.scm
View file

@ -1,7 +1,7 @@
;;;; and-let-star.scm --- and-let* syntactic form (draft SRFI-2) for Guile ;;;; and-let-star.scm --- and-let* syntactic form (draft SRFI-2) for Guile
;;;; written by Michael Livshin <mike@olan.com> ;;;; written by Michael Livshin <mike@olan.com>
;;;; ;;;;
;;;; Copyright (C) 1999, 2001, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2001, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/arrays.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1999, 2001, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2001, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by ;;;; it under the terms of the GNU General Public License as published by

9
ice-9/boot-9.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005 ;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006
;;;; Free Software Foundation, Inc. ;;;; Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -2136,8 +2136,11 @@
(let ((i (module-public-interface (resolve-module name)))) (let ((i (module-public-interface (resolve-module name))))
(if (not i) (if (not i)
(error "missing interface for module" name)) (error "missing interface for module" name))
;; Replace autoload-interface with interface (let ((autoload (memq a (module-uses module))))
(set-car! (memq a (module-uses module)) i) ;; Replace autoload-interface with actual interface if
;; that has not happened yet.
(if (pair? autoload)
(set-car! autoload i)))
(module-local-variable i sym)))))) (module-local-variable i sym))))))
(module-constructor (make-hash-table 0) '() b #f #f name 'autoload #f #f (module-constructor (make-hash-table 0) '() b #f #f name 'autoload #f #f
'() (make-weak-value-hash-table 31) 0))) '() (make-weak-value-hash-table 31) 0)))

2
ice-9/buffered-input.scm
View file

@ -1,6 +1,6 @@
;;;; buffered-input.scm --- construct a port from a buffered input reader ;;;; buffered-input.scm --- construct a port from a buffered input reader
;;;; ;;;;
;;;; Copyright (C) 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/calling.scm
View file

@ -1,6 +1,6 @@
;;;; calling.scm --- Calling Conventions ;;;; calling.scm --- Calling Conventions
;;;; ;;;;
;;;; Copyright (C) 1995, 1996, 1997, 2000, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1995, 1996, 1997, 2000, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/channel.scm
View file

@ -1,6 +1,6 @@
;;; Guile object channel ;;; Guile object channel
;; Copyright (C) 2001 Free Software Foundation, Inc. ;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/common-list.scm
View file

@ -1,6 +1,6 @@
;;;; common-list.scm --- COMMON LISP list functions for Scheme ;;;; common-list.scm --- COMMON LISP list functions for Scheme
;;;; ;;;;
;;;; Copyright (C) 1995, 1996, 1997, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1995, 1996, 1997, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/debug.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1996, 1997, 1998, 1999, 2001 Free Software Foundation ;;;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2006 Free Software Foundation
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/debugger.scm
View file

@ -1,6 +1,6 @@
;;;; Guile Debugger ;;;; Guile Debugger
;;; Copyright (C) 1999, 2001, 2002 Free Software Foundation, Inc. ;;; Copyright (C) 1999, 2001, 2002, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/debugger/Makefile.am
View file

@ -1,6 +1,6 @@
## Process this file with automake to produce Makefile.in. ## Process this file with automake to produce Makefile.in.
## ##
## Copyright (C) 2002, 2004 Free Software Foundation, Inc. ## Copyright (C) 2002, 2004, 2006 Free Software Foundation, Inc.
## ##
## This file is part of GUILE. ## This file is part of GUILE.
## ##

2
ice-9/debugger/command-loop.scm
View file

@ -1,6 +1,6 @@
;;;; Guile Debugger command loop ;;;; Guile Debugger command loop
;;; Copyright (C) 1999, 2001, 2002, 2003 Free Software Foundation, Inc. ;;; Copyright (C) 1999, 2001, 2002, 2003, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/debugger/commands.scm
View file

@ -1,6 +1,6 @@
;;;; (ice-9 debugger commands) -- debugger commands ;;;; (ice-9 debugger commands) -- debugger commands
;;; Copyright (C) 2002 Free Software Foundation, Inc. ;;; Copyright (C) 2002, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/debugger/state.scm
View file

@ -1,6 +1,6 @@
;;;; (ice-9 debugger state) -- debugger state representation ;;;; (ice-9 debugger state) -- debugger state representation
;;; Copyright (C) 2002 Free Software Foundation, Inc. ;;; Copyright (C) 2002, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/debugger/trc.scm
View file

@ -1,6 +1,6 @@
;;;; (ice-9 debugger trc) -- tracing for Guile debugger code ;;;; (ice-9 debugger trc) -- tracing for Guile debugger code
;;; Copyright (C) 2002 Free Software Foundation, Inc. ;;; Copyright (C) 2002, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/documentation.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 2000,2001, 2002, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 2000,2001, 2002, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/emacs.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/expect.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1996, 1998, 1999, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 1998, 1999, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

77
ice-9/format.scm
View file

@ -1373,44 +1373,49 @@
(width (format:par pars l 2 0 "width")) (width (format:par pars l 2 0 "width"))
(padch (format:par pars l 3 format:space-ch #f))) (padch (format:par pars l 3 format:space-ch #f)))
(format:parse-float (cond
(if (string? number) number (number->string number)) #t 0) ((or (inf? number) (nan? number))
(if (<= (- format:fn-len format:fn-dot) digits) (format:out-inf-nan number width digits #f #f padch))
(format:fn-zfill #f (- digits (- format:fn-len format:fn-dot)))
(format:fn-round digits)) (else
(let ((numlen (+ format:fn-len 1))) (format:parse-float
(if (or (not format:fn-pos?) (memq modifier '(at colon-at))) (if (string? number) number (number->string number)) #t 0)
(set! numlen (+ numlen 1))) (if (<= (- format:fn-len format:fn-dot) digits)
(format:fn-zfill #f (- digits (- format:fn-len format:fn-dot)))
(format:fn-round digits))
(let ((numlen (+ format:fn-len 1)))
(if (or (not format:fn-pos?) (memq modifier '(at colon-at)))
(set! numlen (+ numlen 1)))
(if (and mindig (> mindig format:fn-dot))
(set! numlen (+ numlen (- mindig format:fn-dot))))
(if (and (= format:fn-dot 0) (not mindig))
(set! numlen (+ numlen 1)))
(if (< numlen width)
(case modifier
((colon)
(if (not format:fn-pos?)
(format:out-char #\-))
(format:out-fill (- width numlen) (integer->char padch)))
((at)
(format:out-fill (- width numlen) (integer->char padch))
(format:out-char (if format:fn-pos? #\+ #\-)))
((colon-at)
(format:out-char (if format:fn-pos? #\+ #\-))
(format:out-fill (- width numlen) (integer->char padch)))
(else
(format:out-fill (- width numlen) (integer->char padch))
(if (not format:fn-pos?)
(format:out-char #\-))))
(if format:fn-pos?
(if (memq modifier '(at colon-at)) (format:out-char #\+))
(format:out-char #\-))))
(if (and mindig (> mindig format:fn-dot)) (if (and mindig (> mindig format:fn-dot))
(set! numlen (+ numlen (- mindig format:fn-dot)))) (format:out-fill (- mindig format:fn-dot) #\0))
(if (and (= format:fn-dot 0) (not mindig)) (if (and (= format:fn-dot 0) (not mindig))
(set! numlen (+ numlen 1))) (format:out-char #\0))
(if (< numlen width) (format:out-substr format:fn-str 0 format:fn-dot)
(case modifier (format:out-char #\.)
((colon) (format:out-substr format:fn-str format:fn-dot format:fn-len)))))))
(if (not format:fn-pos?)
(format:out-char #\-))
(format:out-fill (- width numlen) (integer->char padch)))
((at)
(format:out-fill (- width numlen) (integer->char padch))
(format:out-char (if format:fn-pos? #\+ #\-)))
((colon-at)
(format:out-char (if format:fn-pos? #\+ #\-))
(format:out-fill (- width numlen) (integer->char padch)))
(else
(format:out-fill (- width numlen) (integer->char padch))
(if (not format:fn-pos?)
(format:out-char #\-))))
(if format:fn-pos?
(if (memq modifier '(at colon-at)) (format:out-char #\+))
(format:out-char #\-))))
(if (and mindig (> mindig format:fn-dot))
(format:out-fill (- mindig format:fn-dot) #\0))
(if (and (= format:fn-dot 0) (not mindig))
(format:out-char #\0))
(format:out-substr format:fn-str 0 format:fn-dot)
(format:out-char #\.)
(format:out-substr format:fn-str format:fn-dot format:fn-len)))))
; the flonum buffers ; the flonum buffers

2
ice-9/ftw.scm
View file

@ -1,6 +1,6 @@
;;;; ftw.scm --- filesystem tree walk ;;;; ftw.scm --- filesystem tree walk
;;;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 2002, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/gap-buffer.scm
View file

@ -1,6 +1,6 @@
;;; gap-buffer.scm --- String buffer that supports point ;;; gap-buffer.scm --- String buffer that supports point
;;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. ;;; Copyright (C) 2002, 2003, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/getopt-long.scm
View file

@ -1,4 +1,4 @@
;;; Copyright (C) 1998, 2001 Free Software Foundation, Inc. ;;; Copyright (C) 1998, 2001, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/hcons.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1995, 1996, 1998, 2001, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 1995, 1996, 1998, 2001, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/history.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 2000, 2001, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/lineio.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1996, 1998, 2001, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 1998, 2001, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/list.scm
View file

@ -1,6 +1,6 @@
;;;; List functions not provided in R5RS or srfi-1 ;;;; List functions not provided in R5RS or srfi-1
;;; Copyright (C) 2003 Free Software Foundation, Inc. ;;; Copyright (C) 2003, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/ls.scm
View file

@ -1,6 +1,6 @@
;;;; ls.scm --- functions for browsing modules ;;;; ls.scm --- functions for browsing modules
;;;; ;;;;
;;;; Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1995, 1996, 1997, 1999, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/mapping.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1996, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/match.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/networking.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1999, 2005 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2005, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/null.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 2000, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/occam-channel.scm
View file

@ -1,6 +1,6 @@
;;;; Occam-like channels ;;;; Occam-like channels
;;; Copyright (C) 2003 Free Software Foundation, Inc. ;;; Copyright (C) 2003, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/optargs.scm
View file

@ -1,6 +1,6 @@
;;;; optargs.scm -- support for optional arguments ;;;; optargs.scm -- support for optional arguments
;;;; ;;;;
;;;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 1997, 1998, 1999, 2001, 2002, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/poe.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1996, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/popen.scm
View file

@ -1,6 +1,6 @@
;; popen emulation, for non-stdio based ports. ;; popen emulation, for non-stdio based ports.
;;;; Copyright (C) 1998, 1999, 2000, 2001, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 1998, 1999, 2000, 2001, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/posix.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1999 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/pretty-print.scm
View file

@ -1,6 +1,6 @@
;;;; -*-scheme-*- ;;;; -*-scheme-*-
;;;; ;;;;
;;;; Copyright (C) 2001, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 2001, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/psyntax.ss
View file

@ -1,6 +1,6 @@
;;;; -*-scheme-*- ;;;; -*-scheme-*-
;;;; ;;;;
;;;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 2001, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/q.scm
View file

@ -1,6 +1,6 @@
;;;; q.scm --- Queues ;;;; q.scm --- Queues
;;;; ;;;;
;;;; Copyright (C) 1995, 2001, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 1995, 2001, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/r4rs.scm
View file

@ -1,7 +1,7 @@
;;;; r4rs.scm --- definitions needed for libguile to be R4RS compliant ;;;; r4rs.scm --- definitions needed for libguile to be R4RS compliant
;;;; Jim Blandy <jimb@cyclic.com> --- October 1996 ;;;; Jim Blandy <jimb@cyclic.com> --- October 1996
;;;; Copyright (C) 1996, 1997, 1998, 2000, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 1997, 1998, 2000, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/r5rs.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 2000, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/rdelim.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1997, 1999, 2000, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1997, 1999, 2000, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/receive.scm
View file

@ -1,6 +1,6 @@
;;;; SRFI-8 ;;;; SRFI-8
;;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc. ;;; Copyright (C) 2000, 2001, 2004, 2006 Free Software Foundation, Inc.
;;; ;;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/regex.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1997, 1999, 2001, 2004, 2005 Free Software Foundation, Inc. ;;;; Copyright (C) 1997, 1999, 2001, 2004, 2005, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/runq.scm
View file

@ -1,6 +1,6 @@
;;;; runq.scm --- the runq data structure ;;;; runq.scm --- the runq data structure
;;;; ;;;;
;;;; Copyright (C) 1996, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/rw.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/safe-r5rs.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 2000, 2001, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/safe.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 2000, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/serialize.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/session.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1997, 2000, 2001, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 1997, 2000, 2001, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/slib.scm
View file

@ -1,6 +1,6 @@
;;;; slib.scm --- definitions needed to get SLIB to work with Guile ;;;; slib.scm --- definitions needed to get SLIB to work with Guile
;;;; ;;;;
;;;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/stack-catch.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/streams.scm
View file

@ -1,7 +1,7 @@
;;;; streams.scm --- general lazy streams ;;;; streams.scm --- general lazy streams
;;;; -*- Scheme -*- ;;;; -*- Scheme -*-
;;;; Copyright (C) 1999, 2001, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2001, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/string-fun.scm
View file

@ -1,6 +1,6 @@
;;;; string-fun.scm --- string manipulation functions ;;;; string-fun.scm --- string manipulation functions
;;;; ;;;;
;;;; Copyright (C) 1995, 1996, 1997, 1999, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1995, 1996, 1997, 1999, 2001, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/syncase.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1997, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/test.scm
View file

@ -1,4 +1,4 @@
;; Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 2006 Free Software Foundation, Inc.
;; ;;
;; This library is free software; you can redistribute it and/or ;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public ;; modify it under the terms of the GNU Lesser General Public

2
ice-9/threads.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 1996, 1998, 2001, 2002, 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 1996, 1998, 2001, 2002, 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/time.scm
View file

@ -1,4 +1,4 @@
;;;; Copyright (C) 2001, 2004 Free Software Foundation, Inc. ;;;; Copyright (C) 2001, 2004, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public

2
ice-9/weak-vector.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 2003 Free Software Foundation, Inc. ;;;; Copyright (C) 2003, 2006 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public