From 32f9cb274bc9abc16449d2da50df537c82cc7775 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 28 Jul 2010 01:08:25 +0200 Subject: Displaying variable values in autodoc. --- scheme/racket/geiser/autodoc.rkt | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'scheme/racket/geiser/autodoc.rkt') diff --git a/scheme/racket/geiser/autodoc.rkt b/scheme/racket/geiser/autodoc.rkt index 9eb732d..9eaec15 100644 --- a/scheme/racket/geiser/autodoc.rkt +++ b/scheme/racket/geiser/autodoc.rkt @@ -26,17 +26,20 @@ (map (lambda (id) (or (autodoc* id) (list id))) ids))) (define (autodoc* id) + (define (val) + (with-handlers ([exn? (const "")]) + (format "~.a" (namespace-variable-value id)))) (and (symbol? id) (let* ([loc (symbol-location* id)] [name (car loc)] [path (cdr loc)] - [sgns (and path (find-signatures path name id))] - [sgns (and sgns (if (list? sgns) sgns '()))]) + [sgns (and path (find-signatures path name id))]) (and sgns `(,id (name . ,name) - (args ,@(map format-signature sgns)) + (value . ,(if (list? sgns) "" (val))) + (args ,@(if (list? sgns) (map format-signature sgns) '())) (module . ,(module-path-name->name path))))))) (define (format-signature sign) -- cgit v1.2.3