From 88512563cc9bd8eeb18a85857119ebbd80cdc3aa Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Mon, 29 Jul 2002 23:32:10 +0000
Subject: [PATCH] parse scm fixes

---
 ChangeLog         |  5 +++++
 lily/parse-scm.cc | 11 +++++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bfa215065a..c306d2c931 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-30  Han-Wen  <hanwen@cs.uu.nl>
+
+	* lily/parse-scm.cc (parse_handler): add better error message,
+	return a sensible number of nchars
+
 2002-07-29  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* lily/parse-scm.cc (protected_ly_parse_scm): catch GUILE errors
diff --git a/lily/parse-scm.cc b/lily/parse-scm.cc
index e5228d945c..66f46482e5 100644
--- a/lily/parse-scm.cc
+++ b/lily/parse-scm.cc
@@ -79,8 +79,15 @@ parse_handler (void * data, SCM tag, SCM args)
 
   ps->start_location.error (_("GUILE signaled an error for the expression begining here"));
 
-  gh_display (args);
-  gh_newline();
+  if (scm_ilength (args) > 2)
+    scm_display_error_message (gh_cadr (args), gh_caddr(args), scm_current_error_port());
+
+  /*
+    The following is a kludge; we should probably search for
+    [a-z][0-9] a note, and start before that.
+   */
+  ps->nchars = 1;
+    
   return SCM_EOL;
 }
 
-- 
2.39.5