diff options
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 |