}
char_count_stack_.back () += n;
- for (size_t i = 0; i < pending_string_includes_.size (); i++)
- new_input ("<included string>", pending_string_includes_[i],
- parser_->sources_);
- pending_string_includes_.clear ();
-
yylval.scm = sval;
return SCM_TOKEN;
}
}
char_count_stack_.back () += n;
- return scan_scm_id (sval);
+ for (size_t i = 0; i < pending_string_includes_.size (); i++)
+ new_input ("<included string>", pending_string_includes_[i],
+ parser_->sources_);
+ pending_string_includes_.clear ();
+
+ int token = scan_scm_id (sval);
+ if (!scm_is_eq (yylval.scm, SCM_UNSPECIFIED))
+ return token;
}
<INITIAL,notes,lyrics>{
LY_DEFINE (ly_parser_include_string, "ly:parser-include-string",
2, 0, 0, (SCM parser_smob, SCM ly_code),
"Include the string @var{ly-code} into the input stream"
- " for @var{parser-smob}.")
+ " for @var{parser-smob}. Can only be used in immediate"
+ " Scheme expressions (@code{$} instead of @code{#}).")
{
LY_ASSERT_SMOB (Lily_parser, parser_smob, 1);
Lily_parser *parser = unsmob_lily_parser (parser_smob);
#(if (and #t (defined? 'set-debug-cell-accesses!))
(set-debug-cell-accesses! 5000))
-\version "2.14.0"
+\version "2.15.18"
\include "declarations-init.ly"
#(define book-output-suffix #f)
#(use-modules (scm clip-region))
-#(if (ly:get-option 'include-settings)
+$(if (ly:get-option 'include-settings)
(ly:parser-include-string parser
(format #f "\\include \"~a\"" (ly:get-option 'include-settings))))