Update label-sounds.ny

This commit is contained in:
Thomas De Rocker 2021-04-03 20:06:50 +02:00 committed by James Crook
parent 29c7133dd9
commit dad9823ed2
1 changed files with 1 additions and 1 deletions

View File

@ -160,7 +160,7 @@ $control text (_ "Label text") string "" (_ "Sound ##1")
snd-list)
(incf label-count)
(when (= label-count max-labels)
(format t (_ "Too many silences detected.\nOnly the first 10000 labels added."))
(format t (_ "Too many silences detected.~%Only the first 10000 labels added."))
(return-from find-sounds snd-list))
(setf snd-count 0)) ;Pushed to list, so reset sound sample counter.
(when (> snd-count 0) ;Sound is shorter than snd-dur, so keep counting.