Simon Albrecht <simon.albre...@mail.de> writes:
> On 13.01.2018 19:28, Thomas Morley wrote:
>> Btw, if I'm not mistaken, "module?" is not even listed in the
>> guile-manual, neither guile-1.8 nor guile-2.2.3
>
> Astounding.
>
> ~/lilypond-git$ git grep 'module?'
> ly/context-mods-init.ly: (if (output-module? module)
> scm/framework-ps.scm: (if (module? header)
> scm/lily-library.scm:(define-public (output-module? module)
Well, the main suspect is
dak@lola:/usr/local/tmp/lilypond$ git grep 'is_module'
Documentation/misc/ChangeLog-2.3: * lily/include/ly-module.hh
(ly_use_module): rename is_module to
lily/book-scheme.cc: if (ly_is_module (header))
lily/book-scheme.cc: return ly_is_module (b->header_) ? b->header_ :
SCM_BOOL_F;
lily/book-scheme.cc: SCM_ASSERT_TYPE (ly_is_module (module), module, SCM_ARG2,
__FUNCTION__,
lily/book.cc: if (ly_is_module (s.header_))
lily/book.cc: if (ly_is_module (parent->header_))
lily/book.cc: if (ly_is_module (header_))
lily/book.cc: if (ly_is_module (score->get_header ()))
lily/book.cc: else if (ly_is_module (output_paper_book->header_))
lily/book.cc: else if (ly_is_module (output_paper_book->header_0_))
lily/book.cc: if (ly_is_module (score->get_header ()))
lily/include/lily-guile.hh:inline bool ly_is_module (SCM x) { return
SCM_MODULEP (x); }
lily/lily-parser.cc: if (!ly_is_module (id))
lily/output-def.cc: if (ly_is_module (s.scope_))
lily/pango-font.cc: if (ly_is_module (mod))
lily/paper-book-scheme.cc: if (ly_is_module (book->header_))
lily/paper-book.cc: if (ly_is_module (header_))
lily/paper-book.cc: if (ly_is_module (header_))
lily/paper-book.cc: if (ly_is_module (header_0_))
lily/paper-book.cc: if (ly_is_module (header_))
lily/paper-book.cc: if (ly_is_module (header_))
lily/paper-book.cc: if (ly_is_module (header))
lily/paper-book.cc: if (ly_is_module (header))
lily/paper-book.cc: if (ly_is_module (scm_car (s)))
lily/parser.yy: } else if (ly_is_module ($1))
lily/parser.yy: if (ly_is_module ($2))
lily/parser.yy: } else if (ly_is_module ($2))
lily/parser.yy: } else if (ly_is_module ($2)) {
lily/parser.yy: if (!ly_is_module (book->header_))
lily/parser.yy: if (!ly_is_module (book->header_))
lily/parser.yy: if (scm_is_pair ($1) && ly_is_module (scm_car
($1)))
lily/parser.yy: if (ly_is_module (scm_car ($1)))
lily/parser.yy: else if (scm_is_pair ($$) && ly_is_module
(scm_car ($$)))
lily/parser.yy: } else if (ly_is_module ($2)) {
lily/parser.yy: if (!ly_is_module (module))
lily/parser.yy: } else if (scm_is_pair ($$) && ly_is_module
(scm_car ($$)))
lily/parser.yy: if (!ly_is_module (score->get_header ()))
lily/parser.yy: if (!scm_is_pair ($1) || !ly_is_module (scm_car
($1)))
lily/performance-scheme.cc: SCM_ASSERT_TYPE (ly_is_module (module), module,
SCM_ARG2, __FUNCTION__,
lily/performance.cc: assert (ly_is_module (module));
lily/score-scheme.cc: SCM_ASSERT_TYPE (ly_is_module (module), module,
SCM_ARG2, __FUNCTION__,
lily/score.cc: if (ly_is_module (s.header_))
lily/score.cc: assert (ly_is_module (module));
so it's not like this isn't actually checked a fair amount...
--
David Kastrup
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
