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