guile-data-mining/type-conversions.scm

(define-module (data-mining type-conversions))

(define-public (as-symbol v)
  (cond ((number? v) (string->symbol (number->string v)))
	((string? v) (string->symbol v))
	(else v)))
(define-public (as-string v)
  (cond ((number? v) (number->string v))
	((symbol? v) (symbol->string v))
	(else v)))
(define-public (as-number v)
  (cond ((string? v) (string->number v))
	((symbol? v) (symbol->string v))
	(else v)))