From bc8504fc27bd0448b50dc5d09b75137fd89da9ac Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Fri, 10 Sep 2021 16:15:38 +0300 Subject: [PATCH] Drop gratuitous abstraction --- pandoc/pandoc.r5rs.scm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/pandoc/pandoc.r5rs.scm b/pandoc/pandoc.r5rs.scm index 1e29c4f..89c5249 100644 --- a/pandoc/pandoc.r5rs.scm +++ b/pandoc/pandoc.r5rs.scm @@ -1,18 +1,15 @@ -(define (join-adjacent type? type-append list) +(define (join-adjacent-strings list) (let loop ((new-list '()) (list list)) (if (null? list) (reverse new-list) (loop (if (and (not (null? new-list)) - (type? (car new-list)) - (type? (car list))) - (cons (type-append (car new-list) - (car list)) + (string? (car new-list)) + (string? (car list))) + (cons (string-append (car new-list) + (car list)) (cdr new-list)) (cons (car list) new-list)) (cdr list))))) -(define (join-adjacent-strings list) - (join-adjacent string? string-append list)) - (define (vector-refs vec . indexes) (let loop ((obj vec) (indexes indexes)) (if (null? indexes) obj