1#lang racket/base 2 3(provide defn? 4 defn-syms 5 defn-rhs) 6 7(define (defn? e) 8 (and (pair? e) 9 (eq? (car e) 'define-values))) 10(define defn-syms cadr) 11(define defn-rhs caddr) 12 13