Fix display-phrase.

fantasary/client.scm

@@ -223,18 +223,21 @@
   (addchstr* win (color %YELLOW-N name)))
 
 (define (display-phrase win phrase)
-  (do ((phrase phrase (cdr phrase)))
-      ((null? phrase))
-    (match (car phrase)
-      ((? string? str)
-       (addstr win str))
-      ((? number? num)
-       (addstr win (number->string num)))
-      ((? self-proposed-name? spn)
-       (display-self-proposed-name win spn))
-      ((? petname? pn)
-       (display-petname win pn))
-      (other (addstr win (format #f "~s" other))))))
+  (match phrase
+    ((? string? str)
+     (addstr win str))
+    ((? number? num)
+     (addstr win (number->string num)))
+    ((? self-proposed-name? spn)
+     (display-self-proposed-name win spn))
+    ((? petname? pn)
+     (display-petname win pn))
+    ((phrases ...)
+     (for-each (lambda (phrase*)
+                 (display-phrase win phrase*))
+               phrases))
+    (other
+     (addstr win (format #f "~s" other)))))
 
 
 ;; Log helpers