adding trailing newline

This commit is contained in:
Alex Shinn 2009-12-14 13:57:40 +09:00
parent 420ab008ff
commit f1263dcc19

View file

@ -7,4 +7,5 @@
(let ((eq (if (pair? o) (car o) equal?))) (let ((eq (if (pair? o) (car o) equal?)))
(remove (lambda (x) (eq (car x) key)) ls))) (remove (lambda (x) (eq (car x) key)) ls)))
(define alist-delete! alist-delete) (define alist-delete! alist-delete)