1 #lang racket/base 2 3 (provide db-id? 4 insert-id) 5 6 (require db) 7 8 (define db-id? exact-nonnegative-integer?) 9 10 (define (insert-id query) 11 (cdr (assoc 'insert-id (simple-result-info query)))) 12