;;; Warning!!! This file is derived from those in actions/menus/... do not edit here
 ;;;;;;;; FindNextNoteHigher
 (d-MoveCursorRight)
(let loop ((lowest (d-GetCursorNoteAsMidi)) (current 0))
  (set! current (d-GetNoteAsMidi))
  (if (or (zero? current) (<= current lowest))
      (begin
	(if (d-MoveCursorRight)
	    (loop lowest current)
	    #t))))
      

  