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, 13 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) ) )