diff options
Diffstat (limited to 'lang/guile/patches/patch-ak')
| -rw-r--r-- | lang/guile/patches/patch-ak | 71 |
1 files changed, 7 insertions, 64 deletions
diff --git a/lang/guile/patches/patch-ak b/lang/guile/patches/patch-ak index 367d22418bd..0abb642a1cd 100644 --- a/lang/guile/patches/patch-ak +++ b/lang/guile/patches/patch-ak @@ -1,68 +1,10 @@ -$NetBSD: patch-ak,v 1.1 2005/10/30 00:56:40 gdt Exp $ +$NetBSD: patch-ak,v 1.2 2005/10/30 14:55:46 gdt Exp $ --- ice-9/slib.scm.orig 2004-08-11 21:04:21.000000000 -0400 +++ ice-9/slib.scm -@@ -1,390 +1,7 @@ --;;;; slib.scm --- definitions needed to get SLIB to work with Guile --;;;; --;;;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004 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 --;;;; --;;;; 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) -- :export (slib:load -- implementation-vicinity -- library-vicinity -- home-vicinity -- scheme-implementation-type -- scheme-implementation-version -- make-random-state -- <? <=? =? >? >=? -- require) -- :no-backtrace) -+;; Load slib's init file directly, implicitly symbols into the current -+;; module. -+(load (string-append (assoc-ref %guile-build-info 'pkgdatadir) -+ "/slib/guile.init")) +@@ -55,336 +55,6 @@ + require) + :no-backtrace) - - @@ -397,5 +339,6 @@ $NetBSD: patch-ak,v 1.1 2005/10/30 00:56:40 gdt Exp $ - -(define (make-exchanger obj) - (lambda (rep) (let ((old obj)) (set! obj rep) old))) -+;; use-modules will fail if the file fails to define the module -+(define-module (ice-9 slib)) ++;; Load slib's init routine. ++(load (string-append (assoc-ref %guile-build-info 'pkgdatadir) ++ "/slib/guile.init")) |