From 5793281d4120287ee69fd4f2fa78fb599329cb87 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Tue, 17 Aug 2021 14:37:21 +0300 Subject: [PATCH] Rename vars in aplist --- aplist.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/aplist.scm b/aplist.scm index 59c370d..aa21bb4 100644 --- a/aplist.scm +++ b/aplist.scm @@ -31,11 +31,11 @@ ;;; map (define (alist-map fn alist) - (reverse (alist-fold (lambda (key val acc) (cons (fn key val) acc)) + (reverse (alist-fold (lambda (key val list) (cons (fn key val) list)) '() alist))) (define (plist-map fn plist) - (reverse (plist-fold (lambda (key val acc) (cons (fn key val) acc)) + (reverse (plist-fold (lambda (key val list) (cons (fn key val) list)) '() plist))) ;;; ->