[PATCH 04/13] remove bundled srfi-8

Andy Wingo wingo at pobox.com
Mon Mar 29 14:52:47 EDT 2010


Guile 1.6 and newer always has srfi-8
---
 lib/srfi/Makefile.am |    1 -
 lib/srfi/srfi-8.scm  |   45 ---------------------------------------------
 2 files changed, 0 insertions(+), 46 deletions(-)
 delete mode 100644 lib/srfi/srfi-8.scm

diff --git a/lib/srfi/Makefile.am b/lib/srfi/Makefile.am
index 6f3d8cb..80b679e 100644
--- a/lib/srfi/Makefile.am
+++ b/lib/srfi/Makefile.am
@@ -7,7 +7,6 @@ EXTRA_DIST = \
   README \
   srfi-1.scm \
   srfi-2.scm \
-  srfi-8.scm \
   srfi-9.scm \
   srfi-11.scm \
   srfi-19.scm
diff --git a/lib/srfi/srfi-8.scm b/lib/srfi/srfi-8.scm
deleted file mode 100644
index 53d7c3c..0000000
--- a/lib/srfi/srfi-8.scm
+++ /dev/null
@@ -1,45 +0,0 @@
-;;;; srfi-8.scm --- SRFI-8 procedures for Guile
-
-;;; Copyright (C) 2000 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 the Free Software Foundation; either version 2, or
-;;; (at your option) any later version.
-;;;
-;;; This program 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 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
-
-(define-module (srfi srfi-8))
-
-(cond
- ((or (string=? "1.3" (version))
-      (string=? "1.3.4" (version))
-      (string=? "1.4" (substring (version) 0 3)))
-  
-  (use-modules (ice-9 slib))
-  (require 'macro-by-example)
-  (require 'values)
-  
-  (define-syntax receive
-    (syntax-rules ()
-      ((receive formals expression body ...)
-       (call-with-values (lambda () expression)
-         (lambda formals body ...))))))
- 
- (else
-  (let ((msg
-         (string-append
-          "Loaded gnucash srfi-8.scm in unknown Guile version:" (version) ".\n"
-          "If you're running a Guile newer than 1.4, then this file should\n"
-          "not have been installed.  Please report the bug.")))
-  (error msg))))
-
-(export-syntax receive)
-- 
1.6.2.5


--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment;
 filename=0005-remove-instances-of-use-modules-ice-9-slib.patch



More information about the gnucash-devel mailing list