mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +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) (define-module (ice-9 session)
:use-module (ice-9 documentation) :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) (cond ((symbol? name)
(help-doc name (help-doc name
(string-append "^" (string-append "^"
(symbol->string name) (regexp-quote
(symbol->string name))
"$"))) "$")))
((string? name) ((string? name)
(help-doc name name)) (help-doc name name))