Megatest

Diff
Login

Differences From Artifact [08c9f6257d]:

To Artifact [e1ead0c092]:


25
26
27
28
29
30
31








32
33
34
35
36
37
38
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46







+
+
+
+
+
+
+
+







  (syntax-rules ()
    ((_ (name arg ...) body ...)
     (define-syntax name (syntax-rules () ((name arg ...) (begin body ...)))))))

(define-syntax common:handle-exceptions
  (syntax-rules ()
    ((_ exn-in errstmt ...)(handle-exceptions exn-in errstmt ...))))

(define (safe-vector-ref vec indx)
  (if vec
      (vector-ref vec indx)
      (begin
	(debug:print 0 "vector-ref called with #f")
	(print-call-chain (current-error-port))
	(exit))))

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