diff --git a/pitfall/pitfall/page.rkt b/pitfall/pitfall/page.rkt index b6dbfd27..a3c74d03 100644 --- a/pitfall/pitfall/page.rkt +++ b/pitfall/pitfall/page.rkt @@ -11,7 +11,7 @@ (define (current-page doc) (match (pdf-pages doc) [(? pair? ps) (car ps)] - [_ (raise-argument-error 'current-page "no pages in pdf" doc)])) + [_ (raise-argument-error 'current-page "pdf with pages in it" doc)])) (define (add-content doc data) (page-write (current-page doc) data))