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
|
|
225 | 225 | (define translate-options '()) |
226 | 226 | |
227 | 227 | (define include-dir |
228 | | (let ((id (prefix "" "include" |
| 228 | (let ((id (prefix "" |
| 229 | (make-pathname "include" "chicken") |
229 | 230 | (if host-mode INSTALL_INCLUDE_HOME TARGET_INCLUDE_HOME)))) |
230 | 231 | (and (not (member id '("/usr/include" ""))) |
231 | 232 | id) ) ) |