summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNic Ferier <nic@ferrier.me.uk>2013-06-12 01:27:21 +0100
committerNic Ferier <nic@ferrier.me.uk>2013-06-12 01:27:21 +0100
commit836301c46e831fcbde8ce40952d5e722bd045e79 (patch)
treeb7ecc6b765463f06db2c11b18239ae1249f60b3b
parent5f10c5e4e36bbaf91a684c786b790efca9ec8351 (diff)
remove let-while test function
-rw-r--r--noflet.el12
1 files changed, 1 insertions, 11 deletions
diff --git a/noflet.el b/noflet.el
index 7c28d82..70103fe 100644
--- a/noflet.el
+++ b/noflet.el
@@ -4,7 +4,7 @@
;; Author: Nic Ferrier <nferrier@ferrier.me.uk>
;; Keywords: lisp
-;; Version: 0.0.5
+;; Version: 0.0.6
;; Url: https://github.com/nicferrier/emacs-noflet
;; This program is free software; you can redistribute it and/or modify
@@ -149,16 +149,6 @@ BODY is evaluated each time."
(progn ,@body)
(setq ,var (funcall ,expression-proc)))))))
-(defun let-while-test ()
- (catch :io
- (let ((lines '("line 1" "line 2")))
- (noflet ((get-line ()
- (or
- (pop lines)
- (throw :io :eof))))
- (let-while (line (get-line))
- (message "the line is: %s" line))))))
-
(provide 'noflet)
;;; noflet.el ends here