From 56431ddf47c0070a5b246efa4e1b5004bb8d11bf Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 15 May 2022 13:45:43 -0700 Subject: [PATCH] better error msg --- quad2/draw.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/quad2/draw.rkt b/quad2/draw.rkt index 12f75d0d..404f0669 100644 --- a/quad2/draw.rkt +++ b/quad2/draw.rkt @@ -29,9 +29,9 @@ (set! current-font font-path) (list ($font font-path))]) (if (pair? (quad-elems q)) - (list ($move (quad-posn q)) ($text (char->integer (car (string->list (car (quad-elems q))))))) + (list ($move (quad-origin q)) ($text (char->integer (car (string->list (car (quad-elems q))))))) null))] - [else (error 'render-unknown-thing)]))))) + [else (raise-argument-error 'make-drawing-insts "known thing" q)]))))) (define valid-tokens '(doc-start doc-end page-start page-end text move set-font))