tsc25 pushed a commit to branch master
in repository elpa.
commit ab068be9688405cf577ef66a982772ae9ef70f19
Author: Toby S. Cubitt <ts...@cantab.net>
Date: Thu May 15 09:55:59 2014 +0100
queue.el: fix buggy queue-first and queue-empty definitions.
---
packages/queue/queue.el | 15 ++++-----------
1 files changed, 4 insertions(+), 11 deletions(-)
diff --git a/packages/queue/queue.el b/packages/queue/queue.el
index f065089..4c9c954 100644
--- a/packages/queue/queue.el
+++ b/packages/queue/queue.el
@@ -1,11 +1,11 @@
-;;; queue.el --- Queue data structure
+;;; queue.el --- Queue data structure -*- lexical-binding: t; -*-
;; Copyright (C) 1991-1995, 2008-2009, 2012 Free Software Foundation, Inc
;; Author: Inge Wallin <i...@lysator.liu.se>
;; Toby Cubitt <toby-predict...@dr-qubit.org>
;; Maintainer: Toby Cubitt <toby-predict...@dr-qubit.org>
-;; Version: 0.1
+;; Version: 0.1.1
;; Keywords: extensions, data structures, queue
;; URL: http://www.dr-qubit.org/emacs.php
;; Repository: http://www.dr-qubit.org/git/predictive.git
@@ -42,13 +42,6 @@
;; package.
-;;; Change Log:
-;;
-;; Version 0.1
-;; * the old Elib library of the same name, updated to use defstructs
-
-
-
;;; Code:
(eval-when-compile (require 'cl))
@@ -95,12 +88,12 @@ Returns nil if the queue is empty."
(pop (queue-head queue)))
-(defmacro queue-empty (queue)
+(defun queue-empty (queue)
"Return t if QUEUE is empty, otherwise return nil."
(null (queue-head queue)))
-(defmacro queue-first (queue)
+(defun queue-first (queue)
"Return the first element of QUEUE or nil if it is empty,
without removing it from the QUEUE."
(car (queue-head queue)))
