mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 12:10:28 +02:00
Code Activity

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

Browse source 
which doesn't exist.  Thanks to Kevon Ryde.
This commit is contained in:
Marius Vollmer 2003-05-03 20:52:31 +00:00
parent 2b24a689f6
commit 297775ce69
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/boot-9.scm
View file

@ -829,7 +829,7 @@
(left-part (string-append (left-part (string-append
(with-output-to-string (with-output-to-string
(lambda () (lambda ()
(map (lambda (x) (display (keyword-symbol x)) (display " ")) (map (lambda (x) (display (keyword->symbol x)) (display " "))
opts-proper))) opts-proper)))
arg-name)) arg-name))
(middle-part (if (and (< (string-length left-part) 30) (middle-part (if (and (< (string-length left-part) 30)