From mainland@apeiron.net  Wed Feb  8 22:19:28 2006
Return-Path: <mainland@apeiron.net>
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 743BE16A422
	for <FreeBSD-gnats-submit@freebsd.org>; Wed,  8 Feb 2006 22:19:28 +0000 (GMT)
	(envelope-from mainland@apeiron.net)
Received: from mail.apeiron.net (h-68-164-219-98.cmbrmaor.covad.net [68.164.219.98])
	by mx1.FreeBSD.org (Postfix) with ESMTP id AF3D243D5A
	for <FreeBSD-gnats-submit@freebsd.org>; Wed,  8 Feb 2006 22:19:26 +0000 (GMT)
	(envelope-from mainland@apeiron.net)
Received: from localhost (localhost.apeiron.net [127.0.0.1])
	by mail.apeiron.net (Postfix) with ESMTP id 7F3DA5CB8
	for <FreeBSD-gnats-submit@freebsd.org>; Wed,  8 Feb 2006 17:19:25 -0500 (EST)
Received: from mail.apeiron.net ([127.0.0.1])
 by localhost (mail.apeiron.net [127.0.0.1]) (amavisd-new, port 10024)
 with ESMTP id 18703-01-11 for <FreeBSD-gnats-submit@freebsd.org>;
 Wed,  8 Feb 2006 17:19:20 -0500 (EST)
Received: from hamilton.apeiron.net (hamilton.apeiron.net [192.168.0.11])
	by mail.apeiron.net (Postfix) with ESMTP id F351E61A7
	for <FreeBSD-gnats-submit@freebsd.org>; Wed,  8 Feb 2006 17:14:31 -0500 (EST)
Received: by hamilton.apeiron.net (Postfix, from userid 4001)
	id DF7EC11855; Wed,  8 Feb 2006 09:37:40 -0500 (EST)
Message-Id: <20060208221420.DF7EC11855@hamilton.apeiron.net>
Date: Wed,  8 Feb 2006 09:37:40 -0500 (EST)
From: Geoffrey Mainland <mainland@apeiron.net>
Reply-To: Geoffrey Mainland <mainland@apeiron.net>
To: FreeBSD-gnats-submit@freebsd.org
Cc:
Subject: slib 3a2 upgrade breaks guile
X-Send-Pr-Version: 3.113
X-GNATS-Notify:

>Number:         93066
>Category:       ports
>Synopsis:       slib 3a2 upgrade breaks guile
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    lawrance
>State:          closed
>Quarter:        
>Keywords:       
>Date-Required:  
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Wed Feb 08 22:20:04 GMT 2006
>Closed-Date:    Thu Jun 08 16:03:53 GMT 2006
>Last-Modified:  Thu Jun 08 16:03:53 GMT 2006
>Originator:     Geoffrey Mainland
>Release:        FreeBSD 6.1-PRERELEASE i386
>Organization:
>Environment:
System: FreeBSD hamilton.apeiron.net 6.1-PRERELEASE FreeBSD 6.1-PRERELEASE #14: Mon Feb 6 02:35:00 EST 2006 toor@hamilton.apeiron.net:/usr/obj/usr/src/sys/HAMILTON i386

>Description:
	The upgrade of slib to 3a2 causes problems with guile. In particular
	gnucash to fail with the message:

	ERROR: Unbound variable: with-load-pathname

	See: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=337359

>How-To-Repeat:
	Upgrade slib and try to run gnucash.

>Fix:

>Release-Note:
>Audit-Trail:
Responsible-Changed-From-To: freebsd-ports-bugs->gnome 
Responsible-Changed-By: linimon 
Responsible-Changed-When: Mon Feb 13 09:29:43 UTC 2006 
Responsible-Changed-Why:  
Over to gnome since they maintain lang/guile, which is where the Debian 
bug report followup claims the underlying problem is. 

http://www.freebsd.org/cgi/query-pr.cgi?pr=93066 
State-Changed-From-To: open->closed 
State-Changed-By: mnag 
State-Changed-When: Mon Feb 20 15:22:58 UTC 2006 
State-Changed-Why:  
Fixed in slib 3a3. Thanks. 

http://www.freebsd.org/cgi/query-pr.cgi?pr=93066 

From: Geoffrey Mainland <mainland@apeiron.net>
To: bug-followup@FreeBSD.org
Cc:  
Subject: Re: ports/93066: slib 3a2 upgrade breaks guile
Date: Mon, 20 Feb 2006 12:13:08 -0500

 How was this determined to be fixed?
 
 I upgraded to slib 3a3. With lang/slib-guile 3a1 installed gnucash still
 failed with the same error. Of course slib-guile is now marked broken
 since installing it with slib 3a3 gives the error
 
 ERROR: Unbound variable: with-load-pathname
 
 Maybe I'm missing something, but the 3a3 upgrade does not appear to have
 fixed anything.
State-Changed-From-To: closed->open 
State-Changed-By: mnag 
State-Changed-When: Mon Feb 20 20:06:37 UTC 2006 
State-Changed-Why:  
Keep open. Not fixed yet. 

http://www.freebsd.org/cgi/query-pr.cgi?pr=93066 
Responsible-Changed-From-To: gnome->lawrance 
Responsible-Changed-By: lawrance 
Responsible-Changed-When: Sun Apr 2 10:46:52 UTC 2006 
Responsible-Changed-Why:  
Take it.  I think this is a problem with the slib-guile port, not 
guile itself.  Testing a solution now. 

http://www.freebsd.org/cgi/query-pr.cgi?pr=93066 

From: Robert Backhaus <robbak@robbak.com>
To: bug-followup@FreeBSD.org
Cc:  
Subject: Re: ports/93066 slib 3a2 upgrade breaks guile - PATCH
Date: Wed, 07 Jun 2006 21:44:11 +1000

 This is a multi-part message in MIME format.
 --------------080001020705050504030303
 Content-Type: text/plain; charset=ISO-8859-1; format=flowed
 Content-Transfer-Encoding: 7bit
 
 This is reported to be a fault in guile. The fix has been made in 
 current versions of guile. Until the next update, we will have to patch 
 ourselves.
 
 This should be given further regression testing in other uses of guile. 
 No problems reported from gnucash yet.
 
 Fix: apply atached patch to guile and rebuild guile and slib-guile
 
 This patch should be removed from the ports tree when guile is next updated.
 
 Robert Backhaus
 robbak@gmail.com
 
 --------------080001020705050504030303
 Content-Type: text/plain;
  name="guile.patch"
 Content-Transfer-Encoding: 7bit
 Content-Disposition: inline;
  filename="guile.patch"
 
 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))))))
 ++
 
 --------------080001020705050504030303--
State-Changed-From-To: open->closed 
State-Changed-By: lawrance 
State-Changed-When: Thu Jun 8 16:03:37 UTC 2006 
State-Changed-Why:  
Fix committed, thanks! 

http://www.freebsd.org/cgi/query-pr.cgi?pr=93066 
>Unformatted:
