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

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-06-11 19:18:22 +00:00
parent 5932117814
commit d1c50f737a
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
ice-9/session.scm
View file

@ -40,6 +40,15 @@ Prints useful information. Try `(help)'."
"$"))) "$")))
((string? name) ((string? name)
(help-doc name name)) (help-doc name name))
((and (list? name)
(= (length name) 2)
(eq? (car name) 'unquote))
(let ((doc (object-documentation (local-eval (cadr name)
env))))
(if (not doc)
(simple-format #t "No documentation found for ~S\n"
(cadr name))
(write-line doc))))
(else (else
(help-usage))) (help-usage)))
*unspecified*))))) *unspecified*)))))
@ -95,6 +104,7 @@ Prints useful information. Try `(help)'."
(define (help-usage) (define (help-usage)
(display "Usage: (help NAME) gives documentation about objects named NAME (a symbol) (display "Usage: (help NAME) gives documentation about objects named NAME (a symbol)
(help REGEXP) ditto for objects with names matching REGEXP (a string) (help REGEXP) ditto for objects with names matching REGEXP (a string)
(help ,EXPR) gives documentation for object returned by EXPR
(help) gives this text (help) gives this text
`help' searches among bindings exported from loaded modules, while `help' searches among bindings exported from loaded modules, while