Megatest

common_records.scm at [b14973f5eb]
Login

File common_records.scm artifact bde6e3a29e part of check-in b14973f5eb


(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 ""))