mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

fix (texinfo reflection) to handle nested structures like syntax patterns

Browse source 
* module/texinfo/reflection.scm (process-args): Convert any arg to a
  string.  "Fixes" documentation of syntax-rules patterns.
This commit is contained in:
Andy Wingo 2011-03-26 12:53:10 +01:00
parent c6e05396dc
commit 362126aa96
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/texinfo/reflection.scm
View file

@ -1,6 +1,6 @@
;;;; (texinfo reflection) -- documenting Scheme as stexinfo ;;;; (texinfo reflection) -- documenting Scheme as stexinfo
;;;; ;;;;
;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc. ;;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com> ;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com>
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -86,7 +86,7 @@
(cons* (car in) infix out))))))) (cons* (car in) infix out)))))))
(define (process-args args) (define (process-args args)
(map (lambda (x) (if (symbol? x) (symbol->string x) x)) (map (lambda (x) (if (string? x) x (object->string x)))
(list*-join (or args '()) (list*-join (or args '())
" " " . "))) " " " . ")))