From 715e36ab81389ebf53ea158027d0a83f144eee0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 30 Jun 2020 01:58:19 +0200 Subject: Finished renamining attribute to property. --- module/entry-points/import.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/entry-points/import.scm') diff --git a/module/entry-points/import.scm b/module/entry-points/import.scm index 3d372f8a..cc67b448 100644 --- a/module/entry-points/import.scm +++ b/module/entry-points/import.scm @@ -30,7 +30,7 @@ (let* ((calendars (getf 'calendars)) (calendar (and cal-name - (find (lambda (c) (string=? cal-name (attr c 'NAME))) + (find (lambda (c) (string=? cal-name (prop c 'NAME))) (getf 'calendars))))) (unless calendar @@ -41,7 +41,7 @@ (format #t "About to the following ~a events into ~a~%~{~a~^~%~}~%" (length (children new-events)) - (attr calendar 'NAME) + (prop calendar 'NAME) (map (extract 'SUMMARY) (children new-events))) (format #t "Continue? [Y/n] ") -- cgit v1.2.3