diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-04 20:49:46 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-04 20:49:46 +0200 |
| commit | 1de0625a0a4ec28744e6d7fec45e7713ee505cfa (patch) | |
| tree | a3d59e611fba6418bc43b2b1fa3c647f4c00fa08 /scheme/plt/geiser/utils.ss | |
| parent | 41ec4384042deaf4a6093594a4dbff2958485e32 (diff) | |
| download | geiser-guile-1de0625a0a4ec28744e6d7fec45e7713ee505cfa.tar.gz geiser-guile-1de0625a0a4ec28744e6d7fec45e7713ee505cfa.tar.bz2 | |
PLT: argument position and syntax and variable recognition in autodoc.
Diffstat (limited to 'scheme/plt/geiser/utils.ss')
| -rw-r--r-- | scheme/plt/geiser/utils.ss | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scheme/plt/geiser/utils.ss b/scheme/plt/geiser/utils.ss index 258a55d..557cf26 100644 --- a/scheme/plt/geiser/utils.ss +++ b/scheme/plt/geiser/utils.ss @@ -28,7 +28,8 @@ (provide module-path-name->name pair->list - keyword->symbol) + keyword->symbol + symbol->keyword) (require srfi/13) @@ -58,5 +59,6 @@ (else (loop (cdr d) (cons (car d) s)))))) (define keyword->symbol (compose string->symbol keyword->string)) +(define (symbol->keyword sym) (string->keyword (format "~a" sym))) ;;; utils.ss ends here |