diff options
author | Nic Ferier <nic@ferrier.me.uk> | 2013-06-11 14:21:37 +0100 |
---|---|---|
committer | Nic Ferier <nic@ferrier.me.uk> | 2013-06-11 14:21:37 +0100 |
commit | 5f10c5e4e36bbaf91a684c786b790efca9ec8351 (patch) | |
tree | c72384a6f8c2e3d5d991df33159a6e3a085517f1 | |
parent | ce0a3b92e0e511293ce54d38d4daececc660be8b (diff) |
use noflet instead of flet in the let-while test
-rw-r--r-- | noflet.el | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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)))))) |