From 1de0625a0a4ec28744e6d7fec45e7713ee505cfa Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Mon, 4 May 2009 20:49:46 +0200 Subject: PLT: argument position and syntax and variable recognition in autodoc. --- scheme/plt/geiser/utils.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'scheme/plt/geiser/utils.ss') 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 -- cgit v1.2.3