On 1/17/21 2:24 PM, Rob Browning wrote:
* libguile/srcprop.c (scm_set_source_properties_x): When only a subset
of file, line, and column fields are specified, store the data as a
srcprops object (tc16_srcprops) rather than an alist.
---
Proposed for at least 3.x. If we want some additional tests, then
one option might be a public or private predicate to test for a
srcprops object (at least for scheme level testing).
Does this mean I can swap out this code for something better now? I've
disliked this code for years.
static SCM
ag_scm_c_eval_string_from_file_line(
char const * pzExpr, char const * pzFile, int line)
{
SCM port = scm_open_input_string(AG_SCM_FROM_STR(pzExpr));
if (OPT_VALUE_TRACE >= TRACE_EVERYTHING)
fprintf(trace_fp, TRACE_EVAL_STRING, pzFile, line, pzExpr);
{
static SCM file = SCM_UNDEFINED;
static char * pzOldFile = NULL;
if ((pzOldFile == NULL) || (strcmp(pzOldFile, pzFile) != 0)) {
if (pzOldFile != NULL)
AGFREE(pzOldFile);
AGDUPSTR(pzOldFile, pzFile, "scheme source");
file = AG_SCM_FROM_STR(pzFile);
}
{
SCM ln = scm_from_int(line);
scm_set_port_filename_x(port, file);
scm_set_port_line_x(port, ln);
scm_set_port_column_x(port, SCM_INUM0);
}
}
{
SCM ans = SCM_UNSPECIFIED;
/* Read expressions from that port; ignore the values. */
for (;;) {
SCM form = scm_read(port);
if (SCM_EOF_OBJECT_P(form))
break;
ans = scm_primitive_eval_x(form);
}
return ans;
}
}