From 56671f6b05dc9a4a596a7ed8823ecadcf5b05cb2 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 14 Feb 2009 20:52:27 +0100 Subject: New command to get docstrings (C-cC-d). --- geiser/introspection.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'geiser/introspection.scm') diff --git a/geiser/introspection.scm b/geiser/introspection.scm index cd48740..14cd021 100644 --- a/geiser/introspection.scm +++ b/geiser/introspection.scm @@ -28,6 +28,7 @@ #:export (arguments completions symbol-location docstring) #:use-module (system vm program) #:use-module (ice-9 session) + #:use-module (ice-9 documentation) #:use-module (srfi srfi-1)) (define (arguments sym . syms) @@ -118,4 +119,8 @@ (define (make-location-from-module-name name) (make-location (module-filename name) #f)) + +(define (docstring sym) + (object-documentation (symbol->obj sym))) + ;;; introspection.scm ends here -- cgit v1.2.3