mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

(display_backtrace_file_and_line): Only use scm_basename when POSIX

Browse source 
support is compiled in.  Thanks to Chris Cramer.
This commit is contained in:
Marius Vollmer 2001-10-13 15:41:40 +00:00
parent 311f67823d
commit 4110fa69b0
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/backtrace.c
View file

@ -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;
}