mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

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

Browse source 
which doesn't exist.  Thanks to Kevin Ryde.
This commit is contained in:
Marius Vollmer 2003-05-03 20:54:13 +00:00
parent 2fae8a88b3
commit b183676373
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

@ -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)