Re: [Chicken-users] Bug in new numbers.egg dependencies

[felix winkelmann]

On 8/24/06, John Cowan <address@hidden> wrote:
> I'm not sure if the problem is with the egg or with chicken-setup,
> but when installing numbers.egg on an egg-free system, it correctly
> notes that it needs both silex.egg and easyffi.egg, but unfortunately
> tries to build the latter egg first, which fails.  Installing
> silex.egg by hand cures the problem, but only if you know to do that.

The list of requirements must be reversed, here is a patch for
chicken-setup.scm:


--- old-chicken/chicken-setup.scm       2006-08-28 08:17:50.489951864 +0200
+++ new-chicken/chicken-setup.scm       2006-08-28 08:17:50.556941680 +0200
@@ -763,14 +763,15 @@

(define (fetch-file-from-net ext)
  (define (requirements reqs)
-    (fold
-     (lambda (r reqs)
-       (let ((node (assq r *repository-tree*)))
-        (cond (node (append (list (car node)) (requirements (cdddr node)) 
reqs))
-              ((memq r ##sys#core-library-modules) reqs)
-              (else (error "Broken dependencies: extension does not exist"
r) ) ) ) )
-     '()
-     reqs) )
+    (reverse
+     (fold
+      (lambda (r reqs)
+       (let ((node (assq r *repository-tree*)))
+         (cond (node (append (list (car node)) (requirements (cdddr node)) 
reqs))
+               ((memq r ##sys#core-library-modules) reqs)
+               (else (error "Broken dependencies: extension does not exist" r) 
) ) ) )
+      '()
+      reqs) ) )
  (and (or *dont-ask*
           (yes-or-no?
            (sprintf "The extension ~A does not exist.~%Do you want to
download it ?" ext)


cheers,
felix

--
http://galinha.ucpel.tche.br:8081/blog/blog.ssp