Overview
| Comment: | Back-ported improvement to -debug |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 | v1.5515 |
| Files: | files | file ages | folders |
| SHA1: |
2b94cc24b40a1b0137f2fb75650405fc |
| User & Date: | mrwellan on 2014-02-25 09:35:26 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-02-26
| ||
| 23:50 | Moved iup to latest check-in: 60f2b5efd6 user: matt tags: v1.55 | |
|
2014-02-25
| ||
| 09:35 | Back-ported improvement to -debug check-in: 2b94cc24b4 user: mrwellan tags: v1.55, v1.5515 | |
|
2014-02-24
| ||
| 14:42 | Fixed debug issue on invalid debug setting. Fixed show-config bug. Added -start-dir check-in: 405e0970e6 user: mrwellan tags: v1.55, v1.5515 | |
Changes
Modified common_records.scm from [d56a2bbf0b] to [4e731a2626].
| ︙ | ︙ | |||
9 10 11 12 13 14 15 | ;; PURPOSE. ;;====================================================================== (use trace) (define (debug:calc-verbosity vstr) (cond | > > | | | | | | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
;; PURPOSE.
;;======================================================================
(use trace)
(define (debug:calc-verbosity vstr)
(cond
((number? vstr) vstr)
((not (string? vstr)) 1)
;; ((string-match "^\\s*$" vstr) 1)
(vstr (let ((debugvals (filter number? (map string->number (string-split vstr ",")))))
(cond
((> (length debugvals) 1) debugvals)
((> (length debugvals) 0)(car debugvals))
(else 1))))
((args:get-arg "-v") 2)
((args:get-arg "-q") 0)
(else 1)))
;; check verbosity, #t is ok
(define (debug:check-verbosity verbosity vstr)
(if (not (or (number? verbosity)
|
| ︙ | ︙ |