src/scm.clj

@@ -59,5 +59,10 @@
                     [:boolean
                      (match x
                        (:or "#t" "#true") true
-                       (:or "#f" "#false") false)])})))
+                       (:or "#f" "#false") false)])
+         :sign (fn
+                 ([] identity)
+                 ([x] (match x "-" - "+" identity)))
+         :num-10 (fn [sign digits]
+                   (sign (parse-long digits)))})))