diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-20 02:36:51 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-20 02:36:51 +0000 |
| commit | 3510b4847619973d7a39fd55b4fed92efbc61f7d (patch) | |
| tree | 48dba73bdb11fd2588a0239cb476d8de2d89179a /ice-9/session.scm | |
| parent | 7b2d4664de7f281368e8c5ace7ee8a821d850ed1 (diff) | |
| download | guile-3510b4847619973d7a39fd55b4fed92efbc61f7d.tar.gz | |
* session.scm: Use module (ice-9 regex).
(help): Regexp-quote a name given as a symbol.
Diffstat (limited to 'ice-9/session.scm')
| -rw-r--r-- | ice-9/session.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ice-9/session.scm b/ice-9/session.scm index 7b9840f3f..5901eba23 100644 --- a/ice-9/session.scm +++ b/ice-9/session.scm @@ -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)) |