mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 07:10:20 +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:22:16 +00:00
parent 701191ba9c
commit d0defdf3aa
4 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -8,6 +8,7 @@ Bug reports and fixes from:
Greg Badros Greg Badros
Aleksandar Bakic Aleksandar Bakic
Per Bothner
Marcus Daniels Marcus Daniels
Fred Fish Fred Fish
Jesse N. Glick Jesse N. Glick

9
libguile/ChangeLog
View file

@ -1,3 +1,12 @@
1998-03-30 Mikael Djurfeldt <mdj@nada.kth.se>
* 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.
1998-03-28 Mikael Djurfeldt <mdj@nada.kth.se> 1998-03-28 Mikael Djurfeldt <mdj@nada.kth.se>
* throw.c (handler_message): Print message on current error port * throw.c (handler_message): Print message on current error port

4
libguile/backtrace.c
View file

@ -83,9 +83,9 @@ display_header (source, port)
{ {
scm_prin1 (fname, port, 0); scm_prin1 (fname, port, 0);
scm_putc (':', port); 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_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 else
scm_puts ("ERROR", port); scm_puts ("ERROR", port);

2
libguile/ports.c
View file

@ -258,7 +258,7 @@ scm_add_to_port_table (port)
scm_port_table[scm_port_table_size]->revealed = 0; scm_port_table[scm_port_table_size]->revealed = 0;
scm_port_table[scm_port_table_size]->stream = 0; scm_port_table[scm_port_table_size]->stream = 0;
scm_port_table[scm_port_table_size]->file_name = SCM_BOOL_F; scm_port_table[scm_port_table_size]->file_name = SCM_BOOL_F;
scm_port_table[scm_port_table_size]->line_number = 1; scm_port_table[scm_port_table_size]->line_number = 0;
scm_port_table[scm_port_table_size]->column_number = 0; scm_port_table[scm_port_table_size]->column_number = 0;
return scm_port_table[scm_port_table_size++]; return scm_port_table[scm_port_table_size++];
} }