>>64
Is there a performance reason for expand-range to have such convoluted logic?
(define (expand-range x)
(let ((first (min *max-posts* (string->number (car x))))
(last (min *max-posts* (string->number
(if (null? (cdr x)) (car x) (cadr x))))))
(lambda ()
(iota
(if (> last first) (- last -1 first) 1)
first))))I would also recommend using the name ``thunk'' instead of ``lamb''.
>>65
Do you usually use these ``SYNC'' annotations in your projects? They seem prone to human error. I see no reason why the digit length of *max-posts* couldn't be computed at startup and added to the regex string. If you extract the string from range? into a variable, you could also easily reuse it in ==quotelink=.