From 562f5f01f60723fac03a67cdb0b10e65842af103 Mon Sep 17 00:00:00 2001 From: Jonathan Schuster Date: Tue, 19 Jul 2016 14:46:48 -0400 Subject: [PATCH] Fix bugs in type errors for data/queue --- racket/collects/data/queue.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/racket/collects/data/queue.rkt b/racket/collects/data/queue.rkt index 03d0e0c845..d8dc8b2911 100644 --- a/racket/collects/data/queue.rkt +++ b/racket/collects/data/queue.rkt @@ -21,7 +21,7 @@ (define (non-empty-queue? v) (and (queue? v) (queue-head v) #t)) (define (enqueue! q v) - (unless (queue? q) (raise-type-error enqueue! "queue" 0 q)) + (unless (queue? q) (raise-type-error 'enqueue! "queue" 0 q)) (let ([new (link v #f)]) (if (queue-head q) (set-link-tail! (queue-tail q) new) @@ -30,7 +30,7 @@ (set-queue-length! q (+ (queue-length q) 1)))) (define (enqueue-front! q v) - (unless (queue? q) (raise-type-error enqueue! "enqueue-front!" 0 q)) + (unless (queue? q) (raise-type-error 'enqueue-front! "queue" 0 q)) (define fr (queue-head q)) (cond [fr @@ -42,7 +42,7 @@ (set-queue-length! q (+ (queue-length q) 1))) (define (dequeue! q) - (unless (queue? q) (raise-type-error dequeue! "queue" 0 q)) + (unless (queue? q) (raise-type-error 'dequeue! "queue" 0 q)) (let ([old (queue-head q)]) (unless old (raise-type-error 'dequeue! "non-empty queue" 0 q)) (cond