queue.el: fix buggy queue-first and queue-empty definitions.

[gnu-emacs-elpa] / packages / queue / queue.el

diff --git a/packages/queue/queue.el b/packages/queue/queue.el
index f065089f7e2af7e68d4529bc2fb2d679cc6ff006..4c9c954f6630d1cefbaf3d1a4df512a565d058c7 100644 (file)
--- 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 <inge@lysator.liu.se>
 ;;         Toby Cubitt <toby-predictive@dr-qubit.org>
 ;; Maintainer: Toby Cubitt <toby-predictive@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)))