X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fskyline.scm;h=96b5f674099b8ee72d6e842b3e909271d01598f9;hb=4051d4410364b9984faa181659a3bfe2763a9736;hp=c4d18396e946fbe665d0331c1882e17c39dfa0ac;hpb=ffd278ab691a1ada9b0ff0f8fd7548ab791f1647;p=lilypond.git diff --git a/scm/skyline.scm b/scm/skyline.scm index c4d18396e9..96b5f67409 100644 --- a/scm/skyline.scm +++ b/scm/skyline.scm @@ -1,6 +1,6 @@ ;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; Copyright (C) 2013 Mike Solomon +;;;; Copyright (C) 2013--2015 Mike Solomon ;;;; ;;;; LilyPond is free software: you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -19,7 +19,7 @@ (and (ly:skyline-empty? (ly:skyline-pair::skyline skyp UP)) (ly:skyline-empty? (ly:skyline-pair::skyline skyp DOWN)))) -; checks if the pair is not null, and then if not empty +;; checks if the pair is not null, and then if not empty (define-public (skyline-pair-and-non-empty? skyp) (and (ly:skyline-pair? skyp) (not (skyline-pair::empty? skyp))))