1
2
3
4
5
6
7
|
(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)
|
>
>
>
>
>
>
>
>
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;;======================================================================
;; Copyright 2006-2011, Matthew Welland.
;;
;; This program is made available under the GNU GPL version 2.0 or
;; greater. See the accompanying file COPYING for details.
;;
;; This program is distributed WITHOUT ANY WARRANTY; without even the
;; implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;; PURPOSE.
;;======================================================================
(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)
|