* scm/lily.scm (chain-assoc-get): bugfix.

[lilypond.git] / scm / define-markup-commands.scm

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 6332287c412a676f2c4a71bfdcac26550a10a707..c42aef7c319817003ab649b02561b1adbcc982f1 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -518,18 +518,14 @@ any sort of property supported by @internalsref{font-interface} and
 (def-markup-command (smaller paper props arg) (markup?)
   "Decrease the font size relative to current setting"
   (let* ((fs (chain-assoc-get 'font-size props 0))
-        ;; FIXME: crasher fix
-         ;; (entry (cons 'font-size (- fs 1))))
-         (entry (cons 'font-size (if (number? fs) (- fs 1) 0))))
+        (entry (cons 'font-size (- fs 1))))
     (interpret-markup paper (cons (list entry) props) arg)))
 
 
 (def-markup-command (bigger paper props arg) (markup?)
   "Increase the font size relative to current setting"
   (let* ((fs (chain-assoc-get 'font-size props 0))
-        ;; FIXME: crasher fix
-         ;; (entry (cons 'font-size (+ fs 1))))
-         (entry (cons 'font-size (if (number? fs) (+ fs 1) 0))))
+         (entry (cons 'font-size (+ fs 1))))
     (interpret-markup paper (cons (list entry) props) arg)))
 
 (def-markup-command larger (markup?)