- end = get_property ("beamAutoEnd");
- if (unsmob_moment (end))
- end_mom = * unsmob_moment (end);
-
- /*
- fifth guess [user override]: property plain, specific for duration type
- */
- if (type_str.length_i ())
+ if (m != SCM_BOOL_F && unsmob_moment (gh_cdr (m)))
+ moment = * unsmob_moment (gh_cdr (m));
+
+ /* third guess: property time exception, specific for duration type */
+ m = gh_assoc (gh_append3 (function, type, time), settings);
+ if (m != SCM_BOOL_F && unsmob_moment (gh_cdr (m)))
+ moment = * unsmob_moment (gh_cdr (m));
+
+ /* fourth guess [user override]: property plain generic */
+ m = gh_assoc (gh_append3 (function, wild, wild), settings);
+ if (m != SCM_BOOL_F && unsmob_moment (gh_cdr (m)))
+ moment = * unsmob_moment (gh_cdr (m));
+
+ /* fifth guess [user override]: property plain, specific for duration type */
+ m = gh_assoc (gh_append3 (function, type, wild), settings);
+ if (m != SCM_BOOL_F && unsmob_moment (gh_cdr (m)))
+ moment = * unsmob_moment (gh_cdr (m));
+
+ Rational r;
+ if (moment)