Ticket #712: 0001-Prefix-include-path-correctly-when-CHICKEN_PREFIX-is.patch

File 0001-Prefix-include-path-correctly-when-CHICKEN_PREFIX-is.patch, 779 bytes (added by Christian Kellermann, 11 years ago)
  • csc.scm

    From 61a7ecab5b6e62c9f085061ada9e505d1a00562c Mon Sep 17 00:00:00 2001
    From: Christian Kellermann <ckeen@pestilenz.org>
    Date: Thu, 13 Oct 2011 21:57:22 +0200
    Subject: [PATCH] Prefix include path correctly when CHICKEN_PREFIX is set.
    
    This fixes bug #712 as reported by Sven Hartrumpf.
    ---
     csc.scm |    3 ++-
     1 files changed, 2 insertions(+), 1 deletions(-)
    
    diff --git a/csc.scm b/csc.scm
    index ecf51a3..11bbff0 100644
    a b  
    225225(define translate-options '())
    226226
    227227(define include-dir
    228   (let ((id (prefix "" "include"
     228  (let ((id (prefix ""
     229                    (make-pathname "include" "chicken")
    229230                    (if host-mode INSTALL_INCLUDE_HOME TARGET_INCLUDE_HOME))))
    230231    (and (not (member id '("/usr/include" "")))
    231232         id) ) )