guile/guile-core/libguile backtrace.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Marius Vollmer <address@hidden> 01/10/14 16:11:20

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&only_with_tag=branch_release-1-6&tr1=1.70.2.1&tr2=1.70.2.2&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;
        }