From 2588eccdf4b69272f978305c7c79eb4c7975b92f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 15 Oct 2008 22:44:37 +0200 Subject: [PATCH] fix `(help)' * ice-9/session.scm (help): Return valid scheme forms in the no-arg and no-regex cases. --- ice-9/session.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ice-9/session.scm b/ice-9/session.scm index 25cd6e8dc..e909132bc 100644 --- a/ice-9/session.scm +++ b/ice-9/session.scm @@ -32,10 +32,12 @@ "(help [NAME]) Prints useful information. Try `(help)'." (cond ((not (= (length exp) 1)) - (help-usage)) + (help-usage) + '(begin)) ((not (provided? 'regex)) (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 (let ((name (car exp)) (not-found (lambda (type x)