|
|
@ -14,6 +14,7 @@
|
|
|
|
[(number? x) (number->string x)]
|
|
|
|
[(number? x) (number->string x)]
|
|
|
|
[(path? x) (path->string x)]
|
|
|
|
[(path? x) (path->string x)]
|
|
|
|
[(char? x) (format "~a" x)]
|
|
|
|
[(char? x) (format "~a" x)]
|
|
|
|
|
|
|
|
[(void? x) ""]
|
|
|
|
;; todo: guard against weird shit like lists of procedures
|
|
|
|
;; todo: guard against weird shit like lists of procedures
|
|
|
|
[(or (list? x) (hash? x) (vector? x)) (format "~v" x)] ; ok to convert datatypes
|
|
|
|
[(or (list? x) (hash? x) (vector? x)) (format "~v" x)] ; ok to convert datatypes
|
|
|
|
[else (error)])))) ; but things like procedures should throw an error
|
|
|
|
[else (error)])))) ; but things like procedures should throw an error
|
|
|
|