[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile backtrace.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile backtrace.c |
Date: |
Sat, 13 Oct 2001 11:41:40 -0400 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/10/13 11:41:40
Modified files:
guile-core/libguile: backtrace.c
Log message:
(display_backtrace_file_and_line): Only use scm_basename when POSIX
support is compiled in. Thanks to Chris Cramer.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/backtrace.c.diff?cvsroot=OldCVS&tr1=1.72&tr2=1.73&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/backtrace.c
diff -u guile/guile-core/libguile/backtrace.c:1.72
guile/guile-core/libguile/backtrace.c:1.73
--- guile/guile-core/libguile/backtrace.c:1.72 Thu Sep 13 17:22:37 2001
+++ guile/guile-core/libguile/backtrace.c Sat Oct 13 11:41:40 2001
@@ -499,8 +499,12 @@
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;
}
- guile/guile-core/libguile backtrace.c,
Marius Vollmer <=