diff options
Diffstat (limited to 'noflet.el')
-rw-r--r-- | noflet.el | 12 |
1 files changed, 1 insertions, 11 deletions
@@ -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 |