~ chicken-core (chicken-5) ef8c48db3fb656663e148eac0dad4f78a44af599


commit ef8c48db3fb656663e148eac0dad4f78a44af599
Author:     Mario Domenech Goulart <mario.goulart@gmail.com>
AuthorDate: Mon Oct 15 19:56:05 2012 -0300
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Mon Nov 19 21:33:37 2012 +0100

    install-extension fix for when the second arg contains pairs (SOURCE DEST)
    
    Cases like
    
      (install-extension 'foo '(("orig" "dest")))
    
    break install-extension.  See
    http://tests.call-cc.org/master/linux/x86/2012/10/15/salmonella-report/install/crunch.html
    for example.
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/setup-api.scm b/setup-api.scm
index 956e7b28..c0461afd 100644
--- a/setup-api.scm
+++ b/setup-api.scm
@@ -442,7 +442,7 @@
 			       (run (,*ranlib-command* ,(shellpath to)) ) ))
 			   (if (deployment-mode)
 			       f
-			       (or (target-prefix f) to))))
+			       (or (target-prefix to) to))))
 		       files) ) )
       (write-info id dests (supply-version info #f)) ) ) )
 
Trap