Minor cleanups.

darcs-hash:c869ad33b1bdfdea92bade8299d17e202c36dd11

1 files changed, 1 insertions, 5 deletions

diff --git a/journal.lisp b/journal.lisp
index 1243508..2d6f8e8 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -198,11 +198,7 @@
      for matches = (ppcre:all-matches "<a [^>]*?> " markup)
      while (not (null matches))
      do (progn
-          (setf markup #+nil
-                (delete-if (constantly t)
-                           markup
-                           :start (1- (second matches))
-                           :end (second matches))
+          (setf markup
                 (replace markup markup :start1 (1+ (first matches))
                                        :end1 (second matches)
                                        :start2 (first matches)