diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-04 01:05:33 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-04 01:05:33 +0200 |
| commit | cdd90c3af5a1a0fcd206293e8c8cb584b575e4f0 (patch) | |
| tree | c38ee1af6ce65bf1a462b93142353c53493f96f4 /scheme/plt/geiser/locations.ss | |
| parent | 10fc0f3411cf838ee67e01df75fe8d84de367319 (diff) | |
| download | geiser-guile-cdd90c3af5a1a0fcd206293e8c8cb584b575e4f0.tar.gz geiser-guile-cdd90c3af5a1a0fcd206293e8c8cb584b575e4f0.tar.bz2 | |
PLT: autodoc (without argument positions).
Diffstat (limited to 'scheme/plt/geiser/locations.ss')
| -rw-r--r-- | scheme/plt/geiser/locations.ss | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/scheme/plt/geiser/locations.ss b/scheme/plt/geiser/locations.ss index b738a48..d1c5cb7 100644 --- a/scheme/plt/geiser/locations.ss +++ b/scheme/plt/geiser/locations.ss @@ -27,12 +27,13 @@ #lang scheme (provide symbol-location + symbol-location* symbol-module-name symbol-module-path-name) (require geiser/utils) -(define (%symbol-location sym) +(define (symbol-location* sym) (let* ((id (namespace-symbol->identifier sym)) (binding (and id (identifier-binding id)))) (if (list? binding) @@ -43,13 +44,13 @@ (cons sym #f)))) (define (symbol-location sym) - (let* ((loc (%symbol-location sym)) + (let* ((loc (symbol-location* sym)) (name (car loc)) (path (cdr loc))) (list (cons 'name name) (cons 'file (if (path? path) (path->string path) '()))))) -(define symbol-module-path-name (compose cdr %symbol-location)) +(define symbol-module-path-name (compose cdr symbol-location*)) (define symbol-module-name (compose module-path-name->name symbol-module-path-name)) |