mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

fix syntax error in describe.scm

Browse source 
* module/system/repl/describe.scm (format-documentation): Remove bad
  string syntax. This file doesn't compile though, due to define-macro
  being a procedure->syntax macro.
This commit is contained in:
Andy Wingo 2008-05-19 21:38:09 +02:00
parent 9246a48606
commit 5163e95138
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/repl/describe.scm
View file

@ -79,7 +79,7 @@
(define (format-documentation doc) (define (format-documentation doc)
(with-current-buffer (make-buffer #:text doc) (with-current-buffer (make-buffer #:text doc)
(lambda () (lambda ()
(let ((regexp (make-regexp "@([a-z]*)(\\{([^\}]*)\\})?"))) (let ((regexp (make-regexp "@([a-z]*)(\\{([^}]*)\\})?")))
(do-while (match (re-search-forward regexp)) (do-while (match (re-search-forward regexp))
(let ((key (string->symbol (match:substring match 1))) (let ((key (string->symbol (match:substring match 1)))
(value (match:substring match 3))) (value (match:substring match 3)))