+ $$ = scm_cons (scm_list_1 ($1), scm_list_1 ($2));
+ }
+ | MUSIC_FUNCTION EXPECT_SCM function_arglist_optional partial_function
+ {
+ $$ = scm_cons (scm_cons ($1, scm_car ($4)),
+ scm_cons ($3, scm_cdr ($4)));
+ }
+ | EVENT_FUNCTION EXPECT_SCM function_arglist_optional partial_function
+ {
+ $$ = scm_cons (scm_cons ($1, scm_car ($4)),
+ scm_cons ($3, scm_cdr ($4)));
+ }
+ | SCM_FUNCTION EXPECT_SCM function_arglist_optional partial_function
+ {
+ $$ = scm_cons (scm_cons ($1, scm_car ($4)),
+ scm_cons ($3, scm_cdr ($4)));
+ }
+ | MUSIC_FUNCTION EXPECT_OPTIONAL EXPECT_SCM function_arglist_nonbackup partial_function
+ {
+ $$ = scm_cons (scm_cons ($1, scm_car ($5)),
+ scm_cons ($4, scm_cdr ($5)));
+ }
+ | EVENT_FUNCTION EXPECT_OPTIONAL EXPECT_SCM function_arglist_nonbackup partial_function
+ {
+ $$ = scm_cons (scm_cons ($1, scm_car ($5)),
+ scm_cons ($4, scm_cdr ($5)));
+ }
+ | SCM_FUNCTION EXPECT_OPTIONAL EXPECT_SCM function_arglist_nonbackup partial_function
+ {
+ $$ = scm_cons (scm_cons ($1, scm_car ($5)),
+ scm_cons ($4, scm_cdr ($5)));