[CM] Snd Motif crash without a default for listener-font

[Tito Latini]

Hi,

the follow sequence is good:

(set! (listener-font) "9x15")
(load-from-path "snd-motif.scm")

but it fails:

;(set! (listener-font) "9x15")
(load-from-path "snd-motif.scm")

a boolean/string qui pro quo:

diff -ur snd-14~/snd-motif.scm snd-14/snd-motif.scm
--- snd-14~/snd-motif.scm	2014-02-19 12:29:54.000000000 +0100
+++ snd-14/snd-motif.scm	2014-02-19 17:34:01.529931252 +0100
@@ -1322,7 +1322,10 @@
   ;; graphics stuff (fonts etc)
   (let*  ((gv (XGCValues))
 	  (shell ((main-widgets) 1))
-	  (button-fontstruct (XLoadQueryFont (XtDisplay shell) (or (listener-font) "9x15"))))
+	  (button-fontstruct (XLoadQueryFont (XtDisplay shell)
+                                             (if (string=? (listener-font) "")
+                                                 "9x15"
+                                                 (listener-font)))))
     (set! (.foreground gv) *data-color*)
     (set! (.background gv) *basic-color*)
     (if (and button-fontstruct (.fid button-fontstruct))


tito