Rename vars in aplist

2021-08-17 14:37:21 +03:00
parent 997361c1ed
commit 5793281d41
1 changed files with 2 additions and 2 deletions
@@ -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)))

 ;;; ->