From 96dbcd8fbafbe7a1b49c28317e4cb509fe546be6 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 21 Jan 2007 15:30:09 +0100 Subject: [PATCH] set column & line numbers for embedded-Scheme reads. --- lily/parse-scm.cc | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lily/parse-scm.cc b/lily/parse-scm.cc index c8d8d36bfa..0a6fac92c4 100644 --- a/lily/parse-scm.cc +++ b/lily/parse-scm.cc @@ -31,6 +31,9 @@ internal_ly_parse_scm (Parse_start *ps) scm_seek (port, scm_long2num (off), scm_long2num (SEEK_SET)); SCM from = scm_ftell (port); + scm_set_port_line_x (port, scm_from_int (ps->start_location_.line_number () -1)); + scm_set_port_column_x (port, scm_from_int (ps->start_location_.column_number () -1)); + SCM answer = SCM_UNSPECIFIED; SCM form = scm_read (port); -- 2.39.2