mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Add source properties to more datum types in scm_read_sharp_extension.

Browse source 
* libguile/read.c (scm_read_sharp_extension): Attach source properties
  to the result of a custom token reader if the returned datum is not
  immediate.  Previously, source properties were added to pairs only.
This commit is contained in:
Mark H Weaver 2012-10-23 00:21:12 -04:00
parent b1b5433d66
commit 3655ed8983
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/read.c
View file

@ -1500,7 +1500,8 @@ scm_read_sharp_extension (int chr, SCM port, scm_t_read_opts *opts)
got = scm_call_2 (proc, SCM_MAKE_CHAR (chr), port);
if (scm_is_pair (got) && !scm_i_has_source_properties (got))
if (opts->record_positions_p && SCM_NIMP (got)
&& !scm_i_has_source_properties (got))
scm_i_set_source_properties_x (got, line, column, SCM_FILENAME (port));
return got;