From ac0f8ba0604233b9248b61cf8367bd861dbaafa1 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 5 May 2019 08:23:58 -0700 Subject: [PATCH] update error msg --- pitfall/pitfall/page.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))