Megatest

Artifact bde6e3a29e923f273040973dc7ea503ff2827672:

• File common_records.scm — part of check-in [3469edbbf7] at 2011-10-08 20:23:24 on branch trunk — 90% converted to using units (user: matt, size: 273) [annotate] [blame] [check-ins using]

(define-inline (debug:print n . params)
  (if (<= n *verbosity*)
      (apply print params)))

;; if a value is printable (i.e. string or number) return the value
;; else return an empty string
(define-inline (printable val)
  (if (or (number? val)(string? val)) val ""))