diff options
Diffstat (limited to 'module/util.scm')
| -rw-r--r-- | module/util.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/module/util.scm b/module/util.scm index 82c2ddc0..2302f671 100644 --- a/module/util.scm +++ b/module/util.scm @@ -168,3 +168,9 @@ "Like @var{take}, but might lists shorter than length." (if (> i (length lst)) lst (take lst i))) + +(define-public (as-string s) + (if (symbol? s) (symbol->string s) s)) + +(define-public (as-symb s) + (if (string? s) (string->symbol s) s)) |