From d0defdf3aa70fc4aa68f3250a1fcaa2e51dbca3b Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Mon, 30 Mar 1998 19:22:16 +0000 Subject: * ports.c (scm_add_to_port_table): First line is now line 0 (was 1). (Interface changed according to suggestion by Per Bothner.) * backtrace.c (display_header): Add 1 to line and column numbers when presenting them to the user. --- libguile/backtrace.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/backtrace.c') diff --git a/libguile/backtrace.c b/libguile/backtrace.c index 54ea125d8..042efe3cc 100644 --- a/libguile/backtrace.c +++ b/libguile/backtrace.c @@ -83,9 +83,9 @@ display_header (source, port) { scm_prin1 (fname, port, 0); scm_putc (':', port); - scm_prin1 (scm_source_property (source, scm_i_line), port, 0); + scm_prin1 (scm_source_property (source, scm_i_line) + 1, port, 0); scm_putc (':', port); - scm_prin1 (scm_source_property (source, scm_i_column), port, 0); + scm_prin1 (scm_source_property (source, scm_i_column) + 1, port, 0); } else scm_puts ("ERROR", port); -- cgit v1.2.3