;; some lowlevel debugging tools

(define (fix n) (##core#inline "C_fix" n))

;; (define v (vector 1 2 3 4 5))
;; (deadbeef v)
;; (dump v 5)
(define deadbeef (foreign-lambda* void ((scheme-pointer ptr)) "*(unsigned int *)ptr = 0x8eadbee2;"))
(define dump (foreign-lambda* void ((scheme-pointer ptr) (int n)) #<<EOF
   unsigned int* p = (unsigned int*)ptr;
   unsigned int i = n;
   while(i--) {
     printf("%08x ", *p++);
   }
EOF
))


(define (ntimes* p n)
  (if (fx= n 0)
      'done
      (begin (p)
             (ntimes* p (fx- n 1)))))