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