fix syntax error in describe.scm

* 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.

diff --git a/module/system/repl/describe.scm b/module/system/repl/describe.scm
index 30de3f9..cb7d3b6 100644 (file)
--- a/module/system/repl/describe.scm
+++ b/module/system/repl/describe.scm
@@ -79,7 +79,7 @@
 (define (format-documentation doc)
   (with-current-buffer (make-buffer #:text doc)
     (lambda ()
-      (let ((regexp (make-regexp "@([a-z]*)(\\{([^\}]*)\\})?")))
+      (let ((regexp (make-regexp "@([a-z]*)(\\{([^}]*)\\})?")))
        (do-while (match (re-search-forward regexp))
          (let ((key (string->symbol (match:substring match 1)))
                (value (match:substring match 3)))