+<INITIAL,chords,lyrics,notes># { //embedded scm
+ //char const* s = YYText () + 1;
+ char const* s = here_ch_C ();
+ int n = 0;
+ if (main_input_b_ && safe_global_b) {
+ error (_ ("Can't evaluate Scheme in safe mode"));
+ return SCM_EOL;
+ }
+ yylval.scm = ly_parse_scm (s, &n);
+ DEBUG_OUT << "Scheme: ";
+ if (flower_dstream)
+ ly_display_scm (yylval.scm);
+
+ for (int i=0; i < n; i++)
+ {
+ yyinput ();
+ }
+ char_count_stack_.top () += n;
+
+ return SCM_T;
+}