From b1836763738a0b294313bcc9cb1268373cda0a1f Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 3 May 2003 20:54:13 +0000 Subject: [PATCH] (display-usage-report): Use keyword->symbol instead of keyword-symbol, which doesn't exist. Thanks to Kevin Ryde. --- ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 1baca459f..0227f2d83 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -868,7 +868,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)