[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 ChangeLog and-let-star-c...
|
From: |
Mikael Djurfeldt |
|
Subject: |
guile/guile-core/ice-9 ChangeLog and-let-star-c... |
|
Date: |
Thu, 18 Oct 2001 15:41:08 -0400 |
CVSROOT: /cvs
Module name: guile
Branch: branch_release-1-6
Changes by: Mikael Djurfeldt <address@hidden> 01/10/18 15:41:08
Modified files:
guile-core/ice-9: ChangeLog and-let-star-compat.scm
and-let-star.scm calling.scm channel.scm
common-list.scm debug.scm debugger.scm
expect.scm hcons.scm lineio.scm ls.scm
mapping.scm null.scm optargs.scm poe.scm
popen.scm pretty-print.scm q.scm r5rs.scm
rdelim.scm regex.scm runq.scm safe-r5rs.scm
safe.scm session.scm slib.scm streams.scm
string-fun.scm syncase.scm threads.scm
Log message:
* and-let-star-compat.scm, and-let-star.scm, calling.scm,
channel.scm, common-list.scm, debug.scm, debugger.scm,
expect.scm, hcons.scm, lineio.scm, ls.scm, mapping.scm,
null.scm, optargs.scm, poe.scm, popen.scm, pretty-print.scm,
q.scm, r5rs.scm, rdelim.scm, regex.scm, runq.scm, safe-r5rs.scm,
safe.scm, session.scm, slib.scm, streams.scm, string-fun.scm,
syncase.scm, threads.scm: Move module the system directives
`export', `export-syntax', `re-export' and `re-export-syntax'
into the `define-module' form. This is the recommended way of
exporting bindings.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/ChangeLog.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.461.2.22&tr2=1.461.2.23&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/and-let-star-compat.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.4.1&tr2=1.2.4.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/and-let-star.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.1&tr2=1.2.2.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/calling.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.5&tr2=1.5.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/channel.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.4&tr2=1.4.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/common-list.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.13&tr2=1.13.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/debug.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.23.2.1&tr2=1.23.2.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/debugger.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.10.2.2&tr2=1.10.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/expect.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.17.2.1&tr2=1.17.2.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/hcons.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.6&tr2=1.6.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/lineio.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.9.2.1&tr2=1.9.2.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/ls.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.5&tr2=1.5.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/mapping.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.5&tr2=1.5.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/null.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.2.2.2&tr2=1.2.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/optargs.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.14.2.2&tr2=1.14.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/poe.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.5&tr2=1.5.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/popen.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.9&tr2=1.9.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/pretty-print.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.4&tr2=1.4.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/q.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.5&tr2=1.5.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/r5rs.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.3.2.2&tr2=1.3.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/rdelim.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.5&tr2=1.5.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/regex.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.7&tr2=1.7.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/runq.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.5&tr2=1.5.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/safe-r5rs.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.6.2.2&tr2=1.6.2.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/safe.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.3&tr2=1.3.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/session.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.30.2.1&tr2=1.30.2.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/slib.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.32&tr2=1.32.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/streams.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.5.2.1&tr2=1.5.2.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/string-fun.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.5&tr2=1.5.2.1&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/syncase.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.18.2.1&tr2=1.18.2.2&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/threads.scm.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.8&tr2=1.8.2.1&r1=text&r2=text
Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.485
guile/guile-core/ice-9/ChangeLog:1.486
--- guile/guile-core/ice-9/ChangeLog:1.485 Sun Oct 14 12:04:34 2001
+++ guile/guile-core/ice-9/ChangeLog Wed Oct 17 08:02:12 2001
@@ -1,3 +1,8 @@
+2001-10-17 Mikael Djurfeldt <address@hidden>
+
+ * boot-9.scm (process-define-module): New options: :export-syntax,
+ :re-export-syntax
+
2001-10-14 Mikael Djurfeldt <address@hidden>
* arrays.scm (read:uniform-vector): Return *unspecified* instead
Index: guile/guile-core/ice-9/and-let-star.scm
diff -u guile/guile-core/ice-9/and-let-star.scm:1.2
guile/guile-core/ice-9/and-let-star.scm:1.3
--- guile/guile-core/ice-9/and-let-star.scm:1.2 Sun Jun 3 19:29:45 2001
+++ guile/guile-core/ice-9/and-let-star.scm Thu Jul 19 16:24:49 2001
@@ -1,7 +1,7 @@
;;;; and-let-star.scm --- and-let* syntactic form (draft SRFI-2) for Guile
;;;; written by Michael Livshin <address@hidden>
;;;;
-;;;; Copyright (C) 1999 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2001 Free Software Foundation, Inc.
;;;;
;;;; 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
Index: guile/guile-core/ice-9/calling.scm
diff -u guile/guile-core/ice-9/calling.scm:1.4
guile/guile-core/ice-9/calling.scm:1.5
--- guile/guile-core/ice-9/calling.scm:1.4 Tue Sep 12 01:45:37 2000
+++ guile/guile-core/ice-9/calling.scm Sun Jun 3 19:29:45 2001
@@ -16,6 +16,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
(define-module (ice-9 calling))
Index: guile/guile-core/ice-9/channel.scm
diff -u guile/guile-core/ice-9/channel.scm:1.3
guile/guile-core/ice-9/channel.scm:1.4
--- guile/guile-core/ice-9/channel.scm:1.3 Sat Apr 28 14:45:29 2001
+++ guile/guile-core/ice-9/channel.scm Sun Jun 3 19:29:45 2001
@@ -16,6 +16,30 @@
;; along with this program; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;
+;; As a special exception, the Free Software Foundation gives permission
+;; for additional uses of the text contained in its release of GUILE.
+;;
+;; The exception is that, if you link the GUILE library with other files
+;; to produce an executable, this does not by itself cause the
+;; resulting executable to be covered by the GNU General Public License.
+;; Your use of that executable is in no way restricted on account of
+;; linking the GUILE library code into it.
+;;
+;; This exception does not however invalidate any other reasons why
+;; the executable file might be covered by the GNU General Public License.
+;;
+;; This exception applies only to the code released by the
+;; Free Software Foundation under the name GUILE. If you copy
+;; code from other Free Software Foundation releases into a copy of
+;; GUILE, as the General Public License permits, the exception does
+;; not apply to the code that you add in this way. To avoid misleading
+;; anyone as to the status of such modified files, you must delete
+;; this exception notice from them.
+;;
+;; If you write modifications of your own for GUILE, it is your choice
+;; whether to permit this exception to apply to your modifications.
+;; If you do not wish that, delete this exception notice.
;;; Commentary:
Index: guile/guile-core/ice-9/common-list.scm
diff -u guile/guile-core/ice-9/common-list.scm:1.12
guile/guile-core/ice-9/common-list.scm:1.13
--- guile/guile-core/ice-9/common-list.scm:1.12 Thu Jun 14 14:22:25 2001
+++ guile/guile-core/ice-9/common-list.scm Tue Jun 26 19:51:54 2001
@@ -196,7 +196,7 @@
(else (find-if pred (cdr l)))))
(define-public (member-if pred l)
- "Return #f iff (PRED element) is not true for any element in L."
+ "Return the first sublist of L for whose car PRED is true."
(cond ((null? l) #f)
((pred (car l)) l)
(else (member-if pred (cdr l)))))
Index: guile/guile-core/ice-9/debug.scm
diff -u guile/guile-core/ice-9/debug.scm:1.23
guile/guile-core/ice-9/debug.scm:1.24
--- guile/guile-core/ice-9/debug.scm:1.23 Fri Jun 29 11:36:47 2001
+++ guile/guile-core/ice-9/debug.scm Thu Jul 19 16:24:49 2001
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation
+;;;; Copyright (C) 1996, 1997, 1998, 1999, 2001 Free Software Foundation
;;;;
;;;; 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
Index: guile/guile-core/ice-9/debugger.scm
diff -u guile/guile-core/ice-9/debugger.scm:1.11
guile/guile-core/ice-9/debugger.scm:1.12
--- guile/guile-core/ice-9/debugger.scm:1.11 Thu Jul 19 16:24:49 2001
+++ guile/guile-core/ice-9/debugger.scm Thu Aug 2 15:52:09 2001
@@ -114,7 +114,8 @@
(define (run-last-command state)
(let ((procedure (fluid-ref last-command)))
(if procedure
- (procedure state))))
+ (procedure state)
+ state)))
(define (catch-user-errors port thunk)
(catch 'debugger-user-error
Index: guile/guile-core/ice-9/expect.scm
diff -u guile/guile-core/ice-9/expect.scm:1.17
guile/guile-core/ice-9/expect.scm:1.18
--- guile/guile-core/ice-9/expect.scm:1.17 Sun Jun 3 19:29:45 2001
+++ guile/guile-core/ice-9/expect.scm Wed Sep 19 09:03:25 2001
@@ -48,7 +48,7 @@
;; variables: expect-port, expect-timeout, expect-timeout-proc,
;; expect-eof-proc, expect-char-proc,
;; expect-strings-compile-flags, expect-strings-exec-flags,
-;; macros: expect
+;; macros: expect, expect-strings
;;; Code:
Index: guile/guile-core/ice-9/hcons.scm
diff -u guile/guile-core/ice-9/hcons.scm:1.5
guile/guile-core/ice-9/hcons.scm:1.6
--- guile/guile-core/ice-9/hcons.scm:1.5 Mon Oct 19 17:23:27 1998
+++ guile/guile-core/ice-9/hcons.scm Sun Jun 3 19:29:45 2001
@@ -16,6 +16,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
Index: guile/guile-core/ice-9/lineio.scm
diff -u guile/guile-core/ice-9/lineio.scm:1.9
guile/guile-core/ice-9/lineio.scm:1.10
--- guile/guile-core/ice-9/lineio.scm:1.9 Sun Jun 3 19:29:45 2001
+++ guile/guile-core/ice-9/lineio.scm Thu Jul 19 16:24:49 2001
@@ -1,6 +1,6 @@
;;; installed-scm-file
-;;;; Copyright (C) 1996, 1998 Free Software Foundation, Inc.
+;;;; Copyright (C) 1996, 1998, 2001 Free Software Foundation, Inc.
;;;;
;;;; 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
Index: guile/guile-core/ice-9/ls.scm
diff -u guile/guile-core/ice-9/ls.scm:1.4 guile/guile-core/ice-9/ls.scm:1.5
--- guile/guile-core/ice-9/ls.scm:1.4 Fri Jun 18 06:16:10 1999
+++ guile/guile-core/ice-9/ls.scm Sun Jun 3 19:29:45 2001
@@ -16,6 +16,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
(define-module (ice-9 ls)
Index: guile/guile-core/ice-9/mapping.scm
diff -u guile/guile-core/ice-9/mapping.scm:1.4
guile/guile-core/ice-9/mapping.scm:1.5
--- guile/guile-core/ice-9/mapping.scm:1.4 Tue Jun 24 12:26:24 1997
+++ guile/guile-core/ice-9/mapping.scm Sun Jun 3 19:29:45 2001
@@ -16,6 +16,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
Index: guile/guile-core/ice-9/null.scm
diff -u guile/guile-core/ice-9/null.scm:1.3 guile/guile-core/ice-9/null.scm:1.4
--- guile/guile-core/ice-9/null.scm:1.3 Thu Jul 12 19:27:07 2001
+++ guile/guile-core/ice-9/null.scm Thu Jul 19 16:24:49 2001
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2000 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
;;;;
;;;; 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
Index: guile/guile-core/ice-9/optargs.scm
diff -u guile/guile-core/ice-9/optargs.scm:1.16
guile/guile-core/ice-9/optargs.scm:1.17
--- guile/guile-core/ice-9/optargs.scm:1.16 Fri Aug 31 05:51:25 2001
+++ guile/guile-core/ice-9/optargs.scm Sat Sep 8 20:59:02 2001
@@ -252,7 +252,7 @@
(parse-arglist
ARGLIST
(lambda (non-optional-args optionals keys aok? rest-arg)
- ; Check for syntax errors.
+ ;; Check for syntax errors.
(if (not (every? symbol? non-optional-args))
(error "Syntax error in fixed argument declaration."))
(if (not (every? ext-decl? optionals))
@@ -262,27 +262,36 @@
(if (not (or (symbol? rest-arg) (eq? #f rest-arg)))
(error "Syntax error in rest argument declaration."))
;; generate the code.
- (let ((rest-gensym (or rest-arg (gensym "lambda*:G"))))
+ (let ((rest-gensym (or rest-arg (gensym "lambda*:G")))
+ (lambda-gensym (gensym "lambda*:L")))
(if (not (and (null? optionals) (null? keys)))
- `(lambda (,@non-optional-args . ,rest-gensym)
- ;; Make sure that if the proc had a docstring, we put it
- ;; here where it will be visible.
- ,@(if (and (not (null? BODY))
- (string? (car BODY)))
- (list (car BODY))
- '())
- (let-optional*
- ,rest-gensym
- ,optionals
- (let-keywords* ,rest-gensym
- ,aok?
- ,keys
- ,@(if (and (not rest-arg) (null? keys))
- `((if (not (null? ,rest-gensym))
- (error "Too many arguments.")))
- '())
- (let ()
- ,@BODY))))
+ `(let ((,lambda-gensym
+ (lambda (,@non-optional-args . ,rest-gensym)
+ ;; Make sure that if the proc had a docstring, we put it
+ ;; here where it will be visible.
+ ,@(if (and (not (null? BODY))
+ (string? (car BODY)))
+ (list (car BODY))
+ '())
+ (let-optional*
+ ,rest-gensym
+ ,optionals
+ (let-keywords* ,rest-gensym
+ ,aok?
+ ,keys
+ ,@(if (and (not rest-arg) (null? keys))
+ `((if (not (null? ,rest-gensym))
+ (error "Too many arguments.")))
+ '())
+ (let ()
+ ,@BODY))))))
+ (set-procedure-property! ,lambda-gensym 'arglist
+ '(,non-optional-args
+ ,optionals
+ ,keys
+ ,aok?
+ ,rest-arg))
+ ,lambda-gensym)
`(lambda (,@non-optional-args . ,(if rest-arg rest-arg '()))
,@BODY))))))
Index: guile/guile-core/ice-9/poe.scm
diff -u guile/guile-core/ice-9/poe.scm:1.4 guile/guile-core/ice-9/poe.scm:1.5
--- guile/guile-core/ice-9/poe.scm:1.4 Tue Jun 24 12:26:25 1997
+++ guile/guile-core/ice-9/poe.scm Sun Jun 3 19:29:45 2001
@@ -16,6 +16,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
Index: guile/guile-core/ice-9/popen.scm
diff -u guile/guile-core/ice-9/popen.scm:1.8
guile/guile-core/ice-9/popen.scm:1.9
--- guile/guile-core/ice-9/popen.scm:1.8 Wed Feb 21 15:11:18 2001
+++ guile/guile-core/ice-9/popen.scm Sun Jun 3 19:29:45 2001
@@ -16,6 +16,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
(define-module (ice-9 popen))
Index: guile/guile-core/ice-9/pretty-print.scm
diff -u guile/guile-core/ice-9/pretty-print.scm:1.3
guile/guile-core/ice-9/pretty-print.scm:1.4
--- guile/guile-core/ice-9/pretty-print.scm:1.3 Sun Jun 3 19:29:45 2001
+++ guile/guile-core/ice-9/pretty-print.scm Sat Jun 9 14:14:08 2001
@@ -124,10 +124,7 @@
((#\newline) "newline")
(else (make-string 1 obj)))
(out "#\\" col))))
- ((input-port? obj) (out "#[input-port]" col))
- ((output-port? obj) (out "#[output-port]" col))
- ((eof-object? obj) (out "#[eof-object]" col))
- (else (out "#[unknown]" col))))
+ (else (out (object->string obj) col))))
(define (pp obj col)
Index: guile/guile-core/ice-9/q.scm
diff -u guile/guile-core/ice-9/q.scm:1.4 guile/guile-core/ice-9/q.scm:1.5
--- guile/guile-core/ice-9/q.scm:1.4 Sun May 6 05:32:42 2001
+++ guile/guile-core/ice-9/q.scm Sun Jun 3 19:29:45 2001
@@ -17,6 +17,30 @@
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
+;;;;
;;; Commentary:
Index: guile/guile-core/ice-9/r5rs.scm
diff -u guile/guile-core/ice-9/r5rs.scm:1.4 guile/guile-core/ice-9/r5rs.scm:1.5
--- guile/guile-core/ice-9/r5rs.scm:1.4 Tue Jul 17 14:59:17 2001
+++ guile/guile-core/ice-9/r5rs.scm Thu Jul 19 16:24:49 2001
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2000 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
;;;;
;;;; 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
Index: guile/guile-core/ice-9/rdelim.scm
diff -u guile/guile-core/ice-9/rdelim.scm:1.4
guile/guile-core/ice-9/rdelim.scm:1.5
--- guile/guile-core/ice-9/rdelim.scm:1.4 Fri May 18 20:28:06 2001
+++ guile/guile-core/ice-9/rdelim.scm Sun Jun 3 19:29:45 2001
@@ -16,6 +16,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
Index: guile/guile-core/ice-9/regex.scm
diff -u guile/guile-core/ice-9/regex.scm:1.6
guile/guile-core/ice-9/regex.scm:1.7
--- guile/guile-core/ice-9/regex.scm:1.6 Tue Nov 28 08:40:40 2000
+++ guile/guile-core/ice-9/regex.scm Sun Jun 3 19:29:45 2001
@@ -14,6 +14,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
;;;; POSIX regex support functions.
Index: guile/guile-core/ice-9/runq.scm
diff -u guile/guile-core/ice-9/runq.scm:1.4 guile/guile-core/ice-9/runq.scm:1.5
--- guile/guile-core/ice-9/runq.scm:1.4 Sun May 6 05:35:50 2001
+++ guile/guile-core/ice-9/runq.scm Sun Jun 3 19:29:45 2001
@@ -17,6 +17,30 @@
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
+;;;;
;;; Commentary:
Index: guile/guile-core/ice-9/safe-r5rs.scm
diff -u guile/guile-core/ice-9/safe-r5rs.scm:1.7
guile/guile-core/ice-9/safe-r5rs.scm:1.8
--- guile/guile-core/ice-9/safe-r5rs.scm:1.7 Thu Jul 12 19:27:23 2001
+++ guile/guile-core/ice-9/safe-r5rs.scm Thu Jul 19 16:24:49 2001
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2000 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
;;;;
;;;; 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
Index: guile/guile-core/ice-9/safe.scm
diff -u guile/guile-core/ice-9/safe.scm:1.2 guile/guile-core/ice-9/safe.scm:1.3
--- guile/guile-core/ice-9/safe.scm:1.2 Tue Jun 20 21:24:56 2000
+++ guile/guile-core/ice-9/safe.scm Sun Jun 3 19:29:45 2001
@@ -14,6 +14,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
;;;; Safe subset of R5RS bindings
Index: guile/guile-core/ice-9/session.scm
diff -u guile/guile-core/ice-9/session.scm:1.30
guile/guile-core/ice-9/session.scm:1.31
--- guile/guile-core/ice-9/session.scm:1.30 Sun Jun 3 19:29:45 2001
+++ guile/guile-core/ice-9/session.scm Sat Sep 8 21:00:30 2001
@@ -400,43 +400,85 @@
(else #f)))
(define-public (arity obj)
- (let ((arity (procedure-property obj 'arity)))
- (display (car arity))
- (cond ((caddr arity)
- (display " or more"))
- ((not (zero? (cadr arity)))
- (display " required and ")
- (display (cadr arity))
- (display " optional")))
- (if (and (not (caddr arity))
- (= (car arity) 1)
- (<= (cadr arity) 1))
- (display " argument")
- (display " arguments"))
- (if (closure? obj)
- (let ((formals (cadr (procedure-source obj))))
- (if (pair? formals)
- (begin
- (display ": `")
- (display (car formals))
- (let loop ((ls (cdr formals)))
- (cond ((null? ls)
- (display #\'))
- ((not (pair? ls))
- (display "', the rest in `")
- (display ls)
- (display #\'))
- (else
- (if (pair? (cdr ls))
- (display "', `")
- (display "' and `"))
- (display (car ls))
- (loop (cdr ls))))))
- (begin
- (display " in `")
- (display formals)
- (display #\')))))
- (display ".\n")))
+ (define (display-arg-list arg-list)
+ (display #\`)
+ (display (car arg-list))
+ (let loop ((ls (cdr arg-list)))
+ (cond ((null? ls)
+ (display #\'))
+ ((not (pair? ls))
+ (display "', the rest in `")
+ (display ls)
+ (display #\'))
+ (else
+ (if (pair? (cdr ls))
+ (display "', `")
+ (display "' and `"))
+ (display (car ls))
+ (loop (cdr ls))))))
+ (define (display-arg-list/summary arg-list type)
+ (let ((len (length arg-list)))
+ (display len)
+ (display " ")
+ (display type)
+ (if (> len 1)
+ (display " arguments: ")
+ (display " argument: "))
+ (display-arg-list arg-list)))
+ (cond
+ ((procedure-property obj 'arglist)
+ => (lambda (arglist)
+ (let ((required-args (car arglist))
+ (optional-args (cadr arglist))
+ (keyword-args (caddr arglist))
+ (allow-other-keys? (cadddr arglist))
+ (rest-arg (car (cddddr arglist)))
+ (need-punctuation #f))
+ (cond ((not (null? required-args))
+ (display-arg-list/summary required-args "required")
+ (set! need-punctuation #t)))
+ (cond ((not (null? optional-args))
+ (if need-punctuation (display ", "))
+ (display-arg-list/summary optional-args "optional")
+ (set! need-punctuation #t)))
+ (cond ((not (null? keyword-args))
+ (if need-punctuation (display ", "))
+ (display-arg-list/summary keyword-args "keyword")
+ (set! need-punctuation #t)))
+ (cond (allow-other-keys?
+ (if need-punctuation (display ", "))
+ (display "other keywords allowed")
+ (set! need-punctuation #t)))
+ (cond (rest-arg
+ (if need-punctuation (display ", "))
+ (display "the rest in `")
+ (display rest-arg)
+ (display "'"))))))
+ (else
+ (let ((arity (procedure-property obj 'arity)))
+ (display (car arity))
+ (cond ((caddr arity)
+ (display " or more"))
+ ((not (zero? (cadr arity)))
+ (display " required and ")
+ (display (cadr arity))
+ (display " optional")))
+ (if (and (not (caddr arity))
+ (= (car arity) 1)
+ (<= (cadr arity) 1))
+ (display " argument")
+ (display " arguments"))
+ (if (closure? obj)
+ (let ((formals (cadr (procedure-source obj))))
+ (cond
+ ((pair? formals)
+ (display ": ")
+ (display-arg-list formals))
+ (else
+ (display " in `")
+ (display formals)
+ (display #\'))))))))
+ (display ".\n"))
(define-public system-module
(procedure->syntax
Index: guile/guile-core/ice-9/slib.scm
diff -u guile/guile-core/ice-9/slib.scm:1.31
guile/guile-core/ice-9/slib.scm:1.32
--- guile/guile-core/ice-9/slib.scm:1.31 Tue Nov 28 08:40:40 2000
+++ guile/guile-core/ice-9/slib.scm Sun Jun 3 19:29:45 2001
@@ -1,23 +1,47 @@
;;;; slib.scm --- definitions needed to get SLIB to work with Guile
;;;;
-;;;; Copyright (C) 1997, 1998, 2000 Free Software Foundation, Inc.
+;;;; Copyright (C) 1997, 1998, 2000 Free Software Foundation, Inc.
;;;;
-;;;; This file is part of GUILE.
-;;;;
-;;;; GUILE is free software; you can redistribute it and/or modify
-;;;; it under the terms of the GNU General Public License as
-;;;; published by the Free Software Foundation; either version 2, or
-;;;; (at your option) any later version.
-;;;;
-;;;; GUILE is distributed in the hope that it will be useful, but
-;;;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;;;; GNU General Public License for more details.
-;;;;
-;;;; You should have received a copy of the GNU General Public
-;;;; License along with GUILE; see the file COPYING. If not, write
-;;;; to the Free Software Foundation, Inc., 59 Temple Place, Suite
-;;;; 330, Boston, MA 02111-1307 USA
+;;;; This file is part of GUILE.
+;;;;
+;;;; GUILE is free software; you can redistribute it and/or modify it
+;;;; under the terms of the GNU General Public License as published by
+;;;; the Free Software Foundation; either version 2, or (at your
+;;;; option) any later version.
+;;;;
+;;;; GUILE is distributed in the hope that it will be useful, but
+;;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;;; General Public License for more details.
+;;;;
+;;;; You should have received a copy of the GNU General Public License
+;;;; along with GUILE; see the file COPYING. If not, write to the
+;;;; Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
(define-module (ice-9 slib)
:no-backtrace)
Index: guile/guile-core/ice-9/streams.scm
diff -u guile/guile-core/ice-9/streams.scm:1.5
guile/guile-core/ice-9/streams.scm:1.6
--- guile/guile-core/ice-9/streams.scm:1.5 Sun Jun 24 23:27:51 2001
+++ guile/guile-core/ice-9/streams.scm Thu Jul 19 16:24:49 2001
@@ -1,7 +1,7 @@
;;;; streams.scm --- general lazy streams
;;;; -*- Scheme -*-
-;;;; Copyright (C) 1999 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2001 Free Software Foundation, Inc.
;;;;
;;;; 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
Index: guile/guile-core/ice-9/string-fun.scm
diff -u guile/guile-core/ice-9/string-fun.scm:1.4
guile/guile-core/ice-9/string-fun.scm:1.5
--- guile/guile-core/ice-9/string-fun.scm:1.4 Tue Nov 28 08:40:40 2000
+++ guile/guile-core/ice-9/string-fun.scm Sun Jun 3 19:29:45 2001
@@ -16,6 +16,30 @@
;;;; along with this software; see the file COPYING. If not, write to
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
+;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
;;;;
(define-module (ice-9 string-fun))
Index: guile/guile-core/ice-9/syncase.scm
diff -u guile/guile-core/ice-9/syncase.scm:1.18
guile/guile-core/ice-9/syncase.scm:1.19
--- guile/guile-core/ice-9/syncase.scm:1.18 Sun Jun 3 19:29:45 2001
+++ guile/guile-core/ice-9/syncase.scm Mon Jul 23 18:09:42 2001
@@ -139,22 +139,6 @@
(define generated-symbols (make-weak-key-hash-table 1019))
-;;; Utilities
-
-(define (psyncomp)
- (system "mv -f psyntax.pp psyntax.pp~")
- (let ((in (open-input-file "psyntax.ss"))
- (out (open-output-file "psyntax.pp")))
- (let loop ((x (read in)))
- (if (eof-object? x)
- (begin
- (close-port out)
- (close-port in))
- (begin
- (write (sc-expand3 x 'c '(compile load eval)) out)
- (newline out)
- (loop (read in)))))))
-
;;; Load the preprocessed code
(let ((old-debug #f)
Index: guile/guile-core/ice-9/threads.scm
diff -u guile/guile-core/ice-9/threads.scm:1.7
guile/guile-core/ice-9/threads.scm:1.8
--- guile/guile-core/ice-9/threads.scm:1.7 Sat Apr 28 14:54:16 2001
+++ guile/guile-core/ice-9/threads.scm Sun Jun 3 19:29:45 2001
@@ -15,6 +15,30 @@
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
;;;; Boston, MA 02111-1307 USA
;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE. If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way. To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
+;;;;
;;;; ----------------------------------------------------------------
;;;; threads.scm -- User-level interface to Guile's thread system
;;;; 4 March 1996, Anthony Green <address@hidden>
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/ice-9 ChangeLog and-let-star-c...,
Mikael Djurfeldt <=