#{ $music #}

[Han-Wen Nienhuys]

address@hidden writes:
> +LY_DEFINE (ly_clone_parser, "ly:clone-parser",
> +           1, 0, 0, 
> +           (SCM parser_smob),
> +           "Return a clone of PARSER_SMOB.")
> +{
> +  My_lily_parser *parser = unsmob_my_lily_parser (parser_smob);
> +  My_lily_parser *clone = new My_lily_parser (*parser);
> +  return clone->self_scm ();
> +}

nitpick: you should do

  return scm_gc_unprotect_object (clone->self_scm ());


-- 

 Han-Wen Nienhuys   |   address@hidden   |   http://www.xs4all.nl/~hanwen