aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2024-10-02 02:13:27 +0100
committerArun Isaac2024-10-02 02:14:57 +0100
commit1161e769e33e692bba48ea359725357c939612da (patch)
tree1859f9aaea2c82a6bd6a21f6e1ba7f132e865b19
parent803a0a627fa91b00279486cbefb7263f3540f313 (diff)
downloadravanan-1161e769e33e692bba48ea359725357c939612da.tar.gz
ravanan-1161e769e33e692bba48ea359725357c939612da.tar.lz
ravanan-1161e769e33e692bba48ea359725357c939612da.zip
reader: Support coercion to number.
* ravanan/reader.scm (coerce-type): Support coercion to number.
-rw-r--r--ravanan/reader.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/ravanan/reader.scm b/ravanan/reader.scm
index 6ca36bc..99276bb 100644
--- a/ravanan/reader.scm
+++ b/ravanan/reader.scm
@@ -280,4 +280,6 @@ each association list of the returned vector of association lists. If
((member val (list "true" "yes")) #t)
((member val (list "false" "no")) #f)
(else (error "Unable to coerce value to type" val type))))
+ ((number)
+ (string->number val))
(else val)))