From b2a327ef992053ca4d8e5b106f42902b33b805c9 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 24 Feb 2018 12:49:20 -0800 Subject: [PATCH] change param name --- quad/quad/param.rkt | 2 +- quad/quad/wrap.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/quad/quad/param.rkt b/quad/quad/param.rkt index 84e5aad1..293a99bb 100644 --- a/quad/quad/param.rkt +++ b/quad/quad/param.rkt @@ -2,4 +2,4 @@ (provide (all-defined-out)) (define current-default-attrs (make-parameter (make-hasheq))) -(define current-line-width (make-parameter 1)) \ No newline at end of file +(define current-wrap-distance (make-parameter 1)) \ No newline at end of file diff --git a/quad/quad/wrap.rkt b/quad/quad/wrap.rkt index cda33555..a9680a20 100644 --- a/quad/quad/wrap.rkt +++ b/quad/quad/wrap.rkt @@ -15,7 +15,7 @@ (define+provide/contract (wrap xs - [target-size (current-line-width)] + [target-size (current-wrap-distance)] [debug #f] #:break-val [break-val 'break] #:mandatory-break-proc [mandatory-break? (const #f)] @@ -31,7 +31,7 @@ (define last-optional-break-k #f) (call/prompt ;; continuation boundary for last-optional-break-k (thunk - (define (capture-optional-break-k!) (when debug (report 'capture)) (let/cc k (set! last-optional-break-k k) #f)) + (define (capture-optional-break-k!) (let/cc k (set! last-optional-break-k k) #f)) (for/fold ([segments null] [pieces null] [dist-so-far start-signal]