mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-13 17:20:21 +02:00
Code Activity

fix `(help)'

Browse source 
* ice-9/session.scm (help): Return valid scheme forms in the no-arg and
  no-regex cases.
This commit is contained in:
Andy Wingo 2008-10-15 22:44:37 +02:00
parent 1a38597553
commit 2588eccdf4
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/session.scm
View file

@ -32,10 +32,12 @@
"(help [NAME]) "(help [NAME])
Prints useful information. Try `(help)'." Prints useful information. Try `(help)'."
(cond ((not (= (length exp) 1)) (cond ((not (= (length exp) 1))
(help-usage)) (help-usage)
'(begin))
((not (provided? 'regex)) ((not (provided? 'regex))
(display "`help' depends on the `regex' feature. (display "`help' depends on the `regex' feature.
You don't seem to have regular expressions installed.\n")) You don't seem to have regular expressions installed.\n")
'(begin))
(else (else
(let ((name (car exp)) (let ((name (car exp))
(not-found (lambda (type x) (not-found (lambda (type x)