From e6f728259e93aa98eab154bf5410c15fdafff4f3 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 28 Apr 2016 10:20:02 -0700
Subject: Check result of find in mark-aliases.

Keys might not exist if aliases have been deleted;
i.e. deleted aliases cannot be check-boxed.
---
 aliases.txr | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/aliases.txr b/aliases.txr
index da16b16..f667918 100644
--- a/aliases.txr
+++ b/aliases.txr
@@ -28,7 +28,7 @@
 @;
 @(define mark-aliases (aliases selected))
 @  (do (each ((key selected))
-         (let ((a (find key aliases)))
+         (iflet ((a (find key aliases)))
            (set a.selected t))))
 @(end)
 @;
-- 
cgit v1.2.3