From 7f38ffb04b26c4cdf0e8d45516a0ac4d3dd36509 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Fri, 12 Jun 2015 14:14:36 +0200 Subject: [PATCH] Issue 4442/6: Update some quoted example code in CG --- .../contributor/programming-work.itexi | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/Documentation/contributor/programming-work.itexi b/Documentation/contributor/programming-work.itexi index 92059b35f9..f14057e60c 100644 --- a/Documentation/contributor/programming-work.itexi +++ b/Documentation/contributor/programming-work.itexi @@ -1134,18 +1134,17 @@ in has been declared. For example, if you are working on routines called by @var{print-book-with} in @file{lily-library.scm}: @example -(define (print-book-with parser book process-procedure) - (let* ((paper (ly:parser-lookup parser '$defaultpaper)) - (layout (ly:parser-lookup parser '$defaultlayout)) - (outfile-name (get-outfile-name parser))) +(define (print-book-with book process-procedure) + (let* ((paper (ly:parser-lookup '$defaultpaper)) + (layout (ly:parser-lookup '$defaultlayout)) + (outfile-name (get-outfile-name book))) (process-procedure book paper layout outfile-name))) -(define-public (print-book-with-defaults parser book) - (print-book-with parser book ly:book-process)) - -(define-public (print-book-with-defaults-as-systems parser book) - (print-book-with parser book ly:book-process-to-systems)) +(define-public (print-book-with-defaults book) + (print-book-with book ly:book-process)) +(define-public (print-book-with-defaults-as-systems book) + (print-book-with book ly:book-process-to-systems)) @end example At this point in the code you could add this to set a breakpoint at -- 2.39.5