- Music_output_def * def = unsmob_music_output_def (s);
- scm_puts ("#<Music_output_def ", p);
-#if 0
- scm_write (def->type_name_, p);
-#else
- (void) def;
-#endif
- scm_puts (">", p);
- return 1;
+ Music_output_def *op = unsmob_music_output_def (pap);
+ SCM_ASSERT_TYPE (op, pap, SCM_ARG1, __FUNCTION__, "Paper");
+ SCM_ASSERT_TYPE (ly_symbol_p (sym), sym, SCM_ARG2, __FUNCTION__, "symbol");
+
+ SCM var = ly_module_lookup (op->scope_, sym);
+ if (SCM_VARIABLEP (var))
+ return SCM_VARIABLE_REF (var);
+ else
+ return SCM_EOL;