diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-31 00:12:00 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-31 00:12:00 +0100 |
commit | 49ffe09b4290ee3c1189660332fca51583c3916a (patch) | |
tree | 80fc507b6c231fd820092752086b9400788d2d3e /module/util.scm | |
parent | Add cval field to LLIST. (diff) | |
download | calp-49ffe09b4290ee3c1189660332fca51583c3916a.tar.gz calp-49ffe09b4290ee3c1189660332fca51583c3916a.tar.xz |
Add as-{string,symb}.
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)) |