- SCM defd = ly_symbol2scm ("symbols-defined-here");
- SCM dvar = scm_module_lookup (src, ly_symbol2scm ("symbols-defined-here"));
- SCM lst = scm_variable_ref (dvar);
- for (SCM s =lst; gh_pair_p (s); s = gh_cdr (s))
- {
- SCM var = scm_module_lookup (src, gh_car (s));
- scm_module_define (dest, gh_car (s),
- scm_variable_ref (var));
- }
+ if (is_number_pair (k))
+ v = ly_scm2interval (k);
+ return v;
+}
+
+Offset
+robust_scm2offset (SCM k, Offset o)
+{
+ if (is_number_pair (k))
+ o = ly_scm2offset (k);