use noflet instead of flet in the let-while test

1 files changed, 4 insertions, 4 deletions

diff --git a/noflet.el b/noflet.el
index 1ef2476..7c28d82 100644
--- a/noflet.el
+++ b/noflet.el
@@ -152,10 +152,10 @@ BODY is evaluated each time."
 (defun let-while-test ()
   (catch :io
     (let ((lines '("line 1" "line 2")))
-      (flet ((get-line ()
-               (or
-                (pop lines)
-                (throw :io :eof))))
+      (noflet ((get-line ()
+                 (or
+                  (pop lines)
+                  (throw :io :eof))))
         (let-while (line (get-line))
           (message "the line is: %s" line))))))