lassik
/
scheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Rename vars in aplist

This commit is contained in:
Lassi Kortela 2021-08-17 14:37:21 +03:00
parent 997361c1ed
commit 5793281d41
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
aplist.scm
View File

@ -31,11 +31,11 @@
;;; map ;;; map
(define (alist-map fn alist) (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))) '() alist)))
(define (plist-map fn plist) (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))) '() plist)))
;;; -> ;;; ->