From 06f2a1b82a52e981b08f940f712d47b6957a8376 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 14 Oct 2001 20:11:20 +0000
Subject: [PATCH] (display_backtrace_file_and_line): Only use scm_basename when
 POSIX support is compiled in.  Thanks to Chris Cramer.

---
 libguile/backtrace.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/libguile/backtrace.c b/libguile/backtrace.c
index f391a32e8..dec697b09 100644
--- a/libguile/backtrace.c
+++ b/libguile/backtrace.c
@@ -499,8 +499,12 @@ display_backtrace_file_and_line (SCM frame, SCM port, scm_print_state *pstate)
       else
 	{
 	  pstate -> writingp = 0;
+#ifdef HAVE_POSIX
 	  scm_iprin1 (SCM_STRINGP (file) ? scm_basename (file, SCM_UNDEFINED) : file,
 		      port, pstate);
+#else
+	  scm_iprin1 (file, port, pstate);
+#endif
 	  pstate -> writingp = 1;
 	}