From 838fc968b38f2ea8d387d0459508421969fc85d5 Mon Sep 17 00:00:00 2001 From: Pavel Panchekha Date: Tue, 1 Oct 2024 12:07:01 -0600 Subject: [PATCH] Make sure we consistently use "pcontext" not "context" for pcontexts --- src/core/points.rkt | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/src/core/points.rkt b/src/core/points.rkt index 3d8b6ede9..76bc7d246 100644 --- a/src/core/points.rkt +++ b/src/core/points.rkt @@ -26,11 +26,11 @@ (define *pcontext* (make-parameter #f)) (struct pcontext (points exacts) #:prefab) -(define (in-pcontext context) - (in-parallel (in-vector (pcontext-points context)) (in-vector (pcontext-exacts context)))) +(define (in-pcontext pcontext) + (in-parallel (in-vector (pcontext-points pcontext)) (in-vector (pcontext-exacts pcontext)))) -(define (pcontext-length context) - (vector-length (pcontext-points context))) +(define (pcontext-length pcontext) + (vector-length (pcontext-points pcontext))) (define/contract (mk-pcontext points exacts) (-> (non-empty-listof (listof any/c)) (non-empty-listof any/c) pcontext?) @@ -41,11 +41,14 @@ (for/lists (pts* exs*) ([(pt ex) (in-pcontext pcontext)] other ...) body ...)]) (mk-pcontext pts* exs*))) -(define (split-pcontext context num-a num-b) - (define num-total (vector-length (pcontext-points context))) - (unless (= (+ num-a num-b) num-total) - (error 'split-pcontext "Cannot split pcontext of size ~a into ~a and ~a" num-total num-a num-b)) - (match-define (pcontext pts exs) context) +(define (split-pcontext pctx num-a num-b) + (match-define (pcontext pts exs) pctx) + (unless (= (+ num-a num-b) (vector-length pts)) + (error 'split-pcontext + "Cannot split pcontext of size ~a into ~a and ~a" + (vector-length pts) + num-a + num-b)) (define-values (pts-a pts-b) (vector-split-at pts num-a)) (define-values (exs-a exs-b) (vector-split-at exs num-a)) (values (pcontext pts-a exs-a) (pcontext pts-b exs-b)))