Reuse memoization for spaces doc constructor

sorawee · Aug 15, 2024 · c33ed62 · c33ed62
1 parent e5669f9
commit c33ed62
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/core.rkt b/core.rkt
@@ -142,11 +142,8 @@
 (define-syntax-parse-rule (pretty-node args ...)
   (pretty-node* doc args ...))
 
-(define spaces-table (make-hasheq))
-
-(define (spaces n)
-  (hash-ref! spaces-table n
-             (λ () (text (make-string n #\space)))))
+(define/memoize (spaces n)
+  (text (make-string n #\space)))
 
 (define (require-newline? d)
   (or (and (commentable? d) (commentable-inline-comment d)) (line-comment? d) (newl? d) (full-atom? d)))