From 497b63699ce9875876c8df10c4d2a28c19a50c32 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 5 Sep 2016 11:22:01 +0100 Subject: [PATCH] Avoid consing up a fresh 1x1 rectangle each time --- racket/syndicate-ide/main.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/syndicate-ide/main.rkt b/racket/syndicate-ide/main.rkt index a6ba2df..afb80c8 100644 --- a/racket/syndicate-ide/main.rkt +++ b/racket/syndicate-ide/main.rkt @@ -108,6 +108,7 @@ (stop-when (message (trace-notification _ pid 'exit _))))) +(define 1x1-white-rectangle (rectangle 1 1 "solid" "white")) (define (compute-link-line start-pos end-pos width) (define delta (- end-pos start-pos)) (define heading (angle delta)) @@ -119,7 +120,7 @@ (imag-part (+ start-pos displacement)) (magnitude delta) width - (rectangle 1 1 "solid" "white")))) + 1x1-white-rectangle))) (define (spawn-influence-view-factory) (actor #:name 'influence-view-factory