From f386e2bd2628a8529016318988cd4ccd5f170084 Mon Sep 17 00:00:00 2001 From: djcb Date: Sun, 15 Jan 2012 14:36:09 +0200 Subject: [PATCH] * update guile examples --- guile/examples/Makefile.am | 2 +- guile/examples/contacts-export | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/guile/examples/Makefile.am b/guile/examples/Makefile.am index 2e02157b..8e69d854 100644 --- a/guile/examples/Makefile.am +++ b/guile/examples/Makefile.am @@ -17,5 +17,5 @@ include $(top_srcdir)/gtest.mk noinst_DIST= \ - msg-stats \ + msg-graphs \ contacts-export diff --git a/guile/examples/contacts-export b/guile/examples/contacts-export index 731f25f5..35d34af8 100755 --- a/guile/examples/contacts-export +++ b/guile/examples/contacts-export @@ -26,14 +26,14 @@ exec guile -e main -s $0 $@ (use-modules (mu) (mu message) (mu contact)) (define (sort-by-freq c1 c2) - (< (frequency c1) (frequency c2))) + (< (mu:frequency c1) (mu:frequency c2))) (define (sort-by-newness c1 c2) - (< (timestamp c1) (timestamp c2))) + (< (mu:timestamp c1) (mu:timestamp c2))) (define (export-contact contact form) "Convert CONTACT to a string in format FORM." - (let ((email (email contact)) (name (name contact))) + (let ((email (mu:email contact)) (name (mu:name contact))) (if email ;; filter out anything *without* an email address (cond ((string= form "org-contacts")