/[guile]/guile/guile-core/ice-9/boot-9.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/boot-9.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.266.2.15 by mdj, Mon Jan 27 11:02:50 2003 UTC revision 1.266.2.16 by mvo, Sat May 3 20:54:13 2003 UTC
# Line 868  Line 868 
868                  (left-part (string-append                  (left-part (string-append
869                              (with-output-to-string                              (with-output-to-string
870                                (lambda ()                                (lambda ()
871                                  (map (lambda (x) (display (keyword-symbol x)) (display " "))                                  (map (lambda (x) (display (keyword->symbol x)) (display " "))
872                                       opts-proper)))                                       opts-proper)))
873                              arg-name))                              arg-name))
874                  (middle-part (if (and (< (string-length left-part) 30)                  (middle-part (if (and (< (string-length left-part) 30)

Legend:
Removed from v.1.266.2.15  
changed lines
  Added in v.1.266.2.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26