@@ -59,10 +59,14 @@
   (cond 
    ((number? val) val)
    ((string? val) (string->number val))
    ((symbol? val) (any->number (symbol->string val)))
    (else #f)))
+
+(define (any->number-if-possible val)
+  (let ((num (any->number val)))
+    (if num num val)))
 
 ;;======================================================================
 ;; System stuff
 ;;======================================================================