FreeBSD Bugzilla – Attachment 62234 Details for
Bug 93066
slib 3a2 upgrade breaks guile
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
Remember
[x]
|
Forgot Password
Login:
[x]
[patch]
guile.patch
guile.patch (text/plain), 3.32 KB, created by
robbak
on 2006-06-07 12:44:11 UTC
(
hide
)
Description:
guile.patch
Filename:
MIME Type:
Creator:
robbak
Created:
2006-06-07 12:44:11 UTC
Size:
3.32 KB
patch
obsolete
>diff -Nur /usr/ports/lang/guile.orig/Makefile /usr/ports/lang/guile/Makefile >--- /usr/ports/lang/guile.orig/Makefile Wed Jun 7 16:51:21 2006 >+++ /usr/ports/lang/guile/Makefile Wed Jun 7 16:48:56 2006 >@@ -7,6 +7,7 @@ > > PORTNAME= guile > PORTVERSION= 1.6.7 >+PORTREVISION= 1 > CATEGORIES= lang scheme > MASTER_SITES= ${MASTER_SITE_GNU} > MASTER_SITE_SUBDIR= guile >diff -Nur /usr/ports/lang/guile.orig/files/patch-slib_slib.scm /usr/ports/lang/guile/files/patch-slib_slib.scm >--- /usr/ports/lang/guile.orig/files/patch-slib_slib.scm Thu Jan 1 10:00:00 1970 >+++ /usr/ports/lang/guile/files/patch-slib_slib.scm Wed Jun 7 16:36:36 2006 >@@ -0,0 +1,89 @@ >+Submitted By: Randy McMurchy <randy_at_linuxfromscratch_dot_org> >+Date: 2005-10-04 >+Initial Package Version: 1.6.7 >+Upstream Status: Unknown >+Origin: http://article.gmane.org/gmane.comp.gnome.apps.gnucash.devel/13956 >+Description: Fixes Guile with SLIB >= 3a2 >+ >+$LastChangedBy$ >+$Date$ >+ >+ >+diff -Naur guile-1.6.7-orig/ice-9/slib.scm guile-1.6.7/ice-9/slib.scm >+--- ice-9/slib.scm 2004-08-11 20:04:21.000000000 -0500 >++++ ice-9/slib.scm 2005-10-04 19:48:04.000000000 -0500 >+@@ -388,3 +388,74 @@ >+ >+ (define (make-exchanger obj) >+ (lambda (rep) (let ((old obj)) (set! obj rep) old))) >++ >++(define software-type >++ (if (string<? (version) "1.6") >++ (lambda () 'UNIX) >++ (lambda () 'unix))) >++ >++(define (user-vicinity) >++ (case (software-type) >++ ((VMS) "[.]") >++ (else ""))) >++ >++(define vicinity:suffix? >++ (let ((suffi >++ (case (software-type) >++ ((amiga) '(#\: #\/)) >++ ((macos thinkc) '(#\:)) >++ ((ms-dos windows atarist os/2) '(#\\ #\/)) >++ ((nosve) '(#\: #\.)) >++ ((unix coherent plan9) '(#\/)) >++ ((vms) '(#\: #\])) >++ (else >++ (warn "require.scm" 'unknown 'software-type (software-type)) >++ "/")))) >++ (lambda (chr) (and (memv chr suffi) #t)))) >++ >++(define (pathname->vicinity pathname) >++ (let loop ((i (- (string-length pathname) 1))) >++ (cond ((negative? i) "") >++ ((vicinity:suffix? (string-ref pathname i)) >++ (substring pathname 0 (+ i 1))) >++ (else (loop (- i 1)))))) >++ >++(define (program-vicinity) >++ (define clp (current-load-port)) >++ (if clp >++ (pathname->vicinity (port-filename clp)) >++ (slib:error 'program-vicinity " called; use slib:load to load"))) >++ >++(define sub-vicinity >++ (case (software-type) >++ ((VMS) (lambda >++ (vic name) >++ (let ((l (string-length vic))) >++ (if (or (zero? (string-length vic)) >++ (not (char=? #\] (string-ref vic (- l 1))))) >++ (string-append vic "[" name "]") >++ (string-append (substring vic 0 (- l 1)) >++ "." name "]"))))) >++ (else (let ((*vicinity-suffix* >++ (case (software-type) >++ ((NOSVE) ".") >++ ((MACOS THINKC) ":") >++ ((MS-DOS WINDOWS ATARIST OS/2) "\\") >++ ((unix COHERENT PLAN9 AMIGA) "/")))) >++ (lambda (vic name) >++ (string-append vic name *vicinity-suffix*)))))) >++ >++(define with-load-pathname >++ (let ((exchange >++ (lambda (new) >++ (let ((old program-vicinity)) >++ (set! program-vicinity new) >++ old)))) >++ (lambda (path thunk) >++ (define old #f) >++ (define vic (pathname->vicinity path)) >++ (dynamic-wind >++ (lambda () (set! old (exchange (lambda () vic)))) >++ thunk >++ (lambda () (exchange old)))))) >++
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
Attachments on
bug 93066
: 62234