| LEFT | RIGHT |
|---|
| (Both sides are equal) |
| 1 /* | 1 /* |
| 2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
| 3 | 3 |
| 4 Copyright (C) 2005--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 2005--2012 Han-Wen Nienhuys <hanwen@xs4all.nl> |
| 5 | 5 |
| 6 LilyPond is free software: you can redistribute it and/or modify | 6 LilyPond is free software: you can redistribute it and/or modify |
| 7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
| 8 the Free Software Foundation, either version 3 of the License, or | 8 the Free Software Foundation, either version 3 of the License, or |
| 9 (at your option) any later version. | 9 (at your option) any later version. |
| 10 | 10 |
| (...skipping 311 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 322 | 322 |
| 323 LY_DEFINE (ly_parser_has_error_p, "ly:parser-has-error?", | 323 LY_DEFINE (ly_parser_has_error_p, "ly:parser-has-error?", |
| 324 1, 0, 0, (SCM parser), | 324 1, 0, 0, (SCM parser), |
| 325 "Does @var{parser} have an error flag?") | 325 "Does @var{parser} have an error flag?") |
| 326 { | 326 { |
| 327 LY_ASSERT_SMOB (Lily_parser, parser, 1); | 327 LY_ASSERT_SMOB (Lily_parser, parser, 1); |
| 328 Lily_parser *p = unsmob_lily_parser (parser); | 328 Lily_parser *p = unsmob_lily_parser (parser); |
| 329 | 329 |
| 330 return scm_from_bool (p->error_level_ || p->lexer_->error_level_); | 330 return scm_from_bool (p->error_level_ || p->lexer_->error_level_); |
| 331 } | 331 } |
| LEFT | RIGHT |
|---|
