mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* ports.c (scm_add_to_port_table): First line is now line 0

Browse source 
(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.
This commit is contained in:
Mikael Djurfeldt 1998-03-30 19:31:52 +00:00
parent d0defdf3aa
commit 0e929db3d1
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/backtrace.c
View file

@ -83,9 +83,13 @@ display_header (source, port)
{
scm_prin1 (fname, port, 0);
scm_putc (':', port);
scm_prin1 (scm_source_property (source, scm_i_line) + 1, port, 0);
scm_intprint (SCM_INUM (scm_source_property (source, scm_i_line)) + 1,
10,
port);
scm_putc (':', port);
scm_prin1 (scm_source_property (source, scm_i_column) + 1, port, 0);
scm_intprint (SCM_INUM (scm_source_property (source, scm_i_column)) + 1,
10,
port);
}
else
scm_puts ("ERROR", port);