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

* session.scm: Use module (ice-9 regex).

Browse source 
(help): Regexp-quote a name given as a symbol.
This commit is contained in:
Mikael Djurfeldt 2000-06-20 02:36:51 +00:00
parent 7b2d4664de
commit 3510b48476
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/session.scm
View file

@ -19,6 +19,7 @@
(define-module (ice-9 session)
:use-module (ice-9 documentation)
:use-module (ice-9 regex)
)
@ -40,7 +41,8 @@ You don't seem to have regular expressions installed.\n"))
(cond ((symbol? name)
(help-doc name
(string-append "^"
(symbol->string name)
(regexp-quote
(symbol->string name))
"$")))
((string? name)
(help-doc name name))