(display-usage-report): Use keyword->symbol instead of keyword-symbol,

which doesn't exist.  Thanks to Kevon Ryde.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index daeb334..e1b2415 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -829,7 +829,7 @@
                (left-part (string-append
                            (with-output-to-string
                              (lambda ()
-                               (map (lambda (x) (display (keyword-symbol x)) (display " "))
+                               (map (lambda (x) (display (keyword->symbol x)) (display " "))
                                     opts-proper)))
                            arg-name))
                (middle-part (if (and (< (string-length left-part) 30)