- if (check_debug)
- *outstream_l_ << String ("\n%start: ") << nm << "\n";
-
- for (PCursor <Atom*> i (m->atoms_); i.ok (); i++)
- {
- Offset a_off = i->offset ();
- a_off += o;
-
- if (!i->lambda_)
- {
- // urg
- i->lambda_ = ly_append (ly_lambda_o (),
- ly_list1 (ly_func_o ("empty")));
- }
-
- switch_to_font (i->font_);
-
-#ifndef NPRINT
- if (check_debug && !monitor->silent_b ("Guile"))
- {
- DOUT << i->str_ << "\n";
- gh_display (i->lambda_); gh_newline ();
- }
-#endif
-
- SCM args_scm =
- gh_cons (gh_double2scm (a_off.x ()),
- gh_cons (gh_double2scm (a_off.y ()),
- gh_cons (i->lambda_, SCM_EOL)));
-
-#ifndef NPRINT
- if (check_debug && !monitor->silent_b ("Guile"))
- {
- gh_display (args_scm); gh_newline ();
- }
-#endif
-
- SCM box_scm =
- ly_append (ly_lambda_o (),
- ly_list1 (ly_append (ly_func_o ("placebox"), args_scm)));
-
- output_scheme (box_scm);
- }