- Interval x;
- if (xext != SCM_UNDEFINED)
- {
- SCM_ASSERT_TYPE (is_number_pair (xext), xext, SCM_ARG2, __FUNCTION__, "number pair");
- x = ly_scm2interval (xext);
- }
-
- Interval y;
- if (yext != SCM_UNDEFINED)
- {
- SCM_ASSERT_TYPE (is_number_pair (yext), yext, SCM_ARG3, __FUNCTION__, "number pair");
- y = ly_scm2interval (yext);
- }
-
- Box b (x, y);