another inspection example

gistfile1.txt

#lang racket

(define child-insp (make-inspector (current-inspector)))
(define parent-insp (current-inspector))

;; Switch to the child inspector.  Structures defined next
;; will be under its control.
(current-inspector child-insp)



(struct cat ())
(struct moose ())
(struct lynx ())
(define animals (list (cat) (moose) (lynx)))


;; Switch back to the parent inspector, which has authority over
;; reflection on things made in the child-inpector's context.
(current-inspector parent-insp)
(map (lambda (v) 
       (define-values (type skipped?) 
         (struct-info v))
       type)
     animals)