X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Flily-parser-scheme.cc;h=44e101175133c5a603513a7c8531d0293decbf3a;hb=936cf9ea496f7340c91f92a7c0ddda91960bf960;hp=8bc7ca0abc2726d697436c685154ff62ff035119;hpb=d5c4d98d29e9bd22f3474700186219d38d5000f6;p=lilypond.git

diff --git a/lily/lily-parser-scheme.cc b/lily/lily-parser-scheme.cc
index 8bc7ca0abc..44e1011751 100644
--- a/lily/lily-parser-scheme.cc
+++ b/lily/lily-parser-scheme.cc
@@ -9,7 +9,7 @@
 #include <unistd.h>
 
 #include "lily-parser.hh"
-6
+
 #include "file-name-map.hh"
 #include "file-name.hh"
 #include "file-path.hh"
@@ -271,3 +271,16 @@ LY_DEFINE (ly_parser_error, "ly:parser-error",
 
   return parser;
 }
+
+LY_DEFINE (ly_parser_clear_error, "ly:parser-clear-error",
+	   1, 0, 0, (SCM parser),
+	   "Clear the error flag for the parser.")
+{
+  Lily_parser *p = unsmob_lily_parser (parser);
+  SCM_ASSERT_TYPE (p, parser, SCM_ARG1, __FUNCTION__, "Lilypond parser");
+
+  p->error_level_ = 0;
+  p->lexer_->error_level_ = 0;
+  
+  return SCM_UNSPECIFIED;
+}