Author: randy Date: 2007-08-03 10:28:51 -0600 (Fri, 03 Aug 2007) New Revision: 1855
Added: trunk/slib/slib-3a4-guile_fixes-1.patch Log: Added a patch to SLIB for the updated version Added: trunk/slib/slib-3a4-guile_fixes-1.patch =================================================================== --- trunk/slib/slib-3a4-guile_fixes-1.patch (rev 0) +++ trunk/slib/slib-3a4-guile_fixes-1.patch 2007-08-03 16:28:51 UTC (rev 1855) @@ -0,0 +1,56 @@ +Submitted By: Randy McMurchy <randy_at_linuxfromscratch_dot_org> +Date: 2007-08-03 +Initial Package Version: 3a4 +Upstream Status: Unknown +Origin: Fedora CVS +Description: Fixes some minor run-time issues with Guile/SLIB + +$Id$ + + +--- slib/guile.init.guile 2007-01-23 14:11:56.000000000 +0100 ++++ slib/guile.init 2007-01-23 14:11:56.000000000 +0100 +@@ -44,8 +44,8 @@ + ;;; the directory where any auxillary files to your Scheme + ;;; implementation reside. + (define implementation-vicinity +- (let* ((path (or (%search-load-path "ice-9/q.scm") +- (error "Could not find ice-9/q.scm in " %load-path))) ++ (let* ((path (or (%search-load-path "slib/qp.scm") ++ (error "Could not find slib/qp.scm in " %load-path))) + (vic (substring path 0 (- (string-length path) 11)))) + (lambda () vic))) + +--- slib/require.scm.guile 2007-01-23 14:11:56.000000000 +0100 ++++ slib/require.scm 2007-01-23 14:32:36.000000000 +0100 +@@ -122,7 +122,7 @@ + (else (bail expression)))) + (feval expression)) + ;@ +-(define (provided? expression) ++(set! provided? (lambda (expression) + (define feature-list (cons (scheme-implementation-type) + (cons (software-type) slib:features))) + (define (provided? expression) +@@ -131,7 +131,7 @@ + (let ((path (catalog:get expression))) + (cond ((symbol? path) (provided? path)) + (else #f)))))) +- (feature-eval expression provided?)) ++ (feature-eval expression provided?))) + ;@ + (define (require feature) + (cond +@@ -169,9 +169,9 @@ + (define (require-if feature? feature) + (if (slib:provided? feature?) (slib:require feature))) + ;@ +-(define (provide feature) ++(set! provide (lambda (feature) + (if (not (memq feature slib:features)) +- (set! slib:features (cons feature slib:features)))) ++ (set! slib:features (cons feature slib:features))))) + + ;@ + (define slib:provide provide) + Property changes on: trunk/slib/slib-3a4-guile_fixes-1.patch ___________________________________________________________________ Name: svn:keywords + Id -- http://linuxfromscratch.org/mailman/listinfo/patches FAQ: http://www.linuxfromscratch.org/faq/ Unsubscribe: See the above information page
