From f1dc40f7227fe2f5774f647f2d5c9939e2faac99 Mon Sep 17 00:00:00 2001 From: Sorawee Porncharoenwase Date: Wed, 17 Jan 2024 23:44:23 -0800 Subject: [PATCH] core: remove dead code (no longer used) --- core.rkt | 5 ----- 1 file changed, 5 deletions(-) diff --git a/core.rkt b/core.rkt index a25a0c8..06f1958 100644 --- a/core.rkt +++ b/core.rkt @@ -95,11 +95,6 @@ (match-define (measure last2 cost2 tok2) m2) (measure last2 (cost+ cost1 cost2) (λ (tks) (tok1 (tok2 tks))))) - (define (cost-big-text c xs) - (for/fold ([sum (cost-text c (string-length (first xs)))]) - ([line (in-list (rest xs))]) - (cost+ sum (cost+ (cost-nl 0) (cost-text 0 (string-length line)))))) - (define limit+1 (add1 limit)) (define (memoize f)