updated readme, changed grep example

1 files changed, 3 insertions, 4 deletions

diff --git a/examples.lisp b/examples.lisp
index 6d2f570..221c78e 100644
--- a/examples.lisp
+++ b/examples.lisp
@@ -113,10 +113,9 @@ vector VEC, one at a time."
 
 ;;; A kind of Grep ;;;
 
-(defmacro a-kind-of-grep (match-var key file &rest body)
-  `(for ,match-var (filter! (lambda (line) (search ,key line))
-                            (file-lines ,file))
-     ,@body))
+(defun grepper (pattern file)
+  (filter! (lambda (idx-line) (search pattern (second idx-line)))
+           (zip! (range) (file-lines file))))
 
 
 ;; find all export expressions in my bashrc file