(scan-api): No longer include timestamp.

[bpt/guile.git] / ice-9 / q.scm

diff --git a/ice-9/q.scm b/ice-9/q.scm
index 453ef95..b09f695 100644 (file)
--- a/ice-9/q.scm
+++ b/ice-9/q.scm
@@ -17,6 +17,30 @@
 ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
 ;;;; Boston, MA 02111-1307 USA
 ;;;;
+;;;; As a special exception, the Free Software Foundation gives permission
+;;;; for additional uses of the text contained in its release of GUILE.
+;;;;
+;;;; The exception is that, if you link the GUILE library with other files
+;;;; to produce an executable, this does not by itself cause the
+;;;; resulting executable to be covered by the GNU General Public License.
+;;;; Your use of that executable is in no way restricted on account of
+;;;; linking the GUILE library code into it.
+;;;;
+;;;; This exception does not however invalidate any other reasons why
+;;;; the executable file might be covered by the GNU General Public License.
+;;;;
+;;;; This exception applies only to the code released by the
+;;;; Free Software Foundation under the name GUILE.  If you copy
+;;;; code from other Free Software Foundation releases into a copy of
+;;;; GUILE, as the General Public License permits, the exception does
+;;;; not apply to the code that you add in this way.  To avoid misleading
+;;;; anyone as to the status of such modified files, you must delete
+;;;; this exception notice from them.
+;;;;
+;;;; If you write modifications of your own for GUILE, it is your choice
+;;;; whether to permit this exception to apply to your modifications.
+;;;; If you do not wish that, delete this exception notice.
+;;;;
 
 ;;; Commentary:
 
@@ -57,7 +81,9 @@
 
 ;;; Code:
 
-(define-module (ice-9 q))
+(define-module (ice-9 q)
+  :export (sync-q! make-q q? q-empty? q-empty-check q-front q-rear
+          q-remove! q-push! enq! q-pop! deq! q-length))
 
 ;;; sync-q!
 ;;;   The procedure
@@ -66,7 +92,7 @@
 ;;;
 ;;;   recomputes and resets the <last-pair> component of a queue.
 ;;;
-(define-public (sync-q! q)
+(define (sync-q! q)
   (set-cdr! q (if (pair? (car q)) (last-pair (car q))
                  #f))
   q)
@@ -74,7 +100,7 @@
 ;;; make-q
 ;;;  return a new q.
 ;;;
-(define-public (make-q) (cons '() #f))
+(define (make-q) (cons '() #f))
 
 ;;; q? obj
 ;;;   Return true if obj is a Q.
@@ -82,7 +108,7 @@
 ;;;   or it is a pair P with (list? (car P))
 ;;;                      and (eq? (cdr P) (last-pair (car P))).
 ;;;
-(define-public (q? obj)
+(define (q? obj)
   (and (pair? obj)
        (if (pair? (car obj))
           (eq? (cdr obj) (last-pair (car obj)))
@@ -91,29 +117,29 @@
 
 ;;; q-empty? obj
 ;;;
-(define-public (q-empty? obj) (null? (car obj)))
+(define (q-empty? obj) (null? (car obj)))
 
 ;;; q-empty-check q
 ;;;  Throw a q-empty exception if Q is empty.
-(define-public (q-empty-check q) (if (q-empty? q) (throw 'q-empty q)))
+(define (q-empty-check q) (if (q-empty? q) (throw 'q-empty q)))
 
 ;;; q-front q
 ;;;  Return the first element of Q.
-(define-public (q-front q) (q-empty-check q) (caar q))
+(define (q-front q) (q-empty-check q) (caar q))
 
 ;;; q-rear q
 ;;;  Return the last element of Q.
-(define-public (q-rear q) (q-empty-check q) (cadr q))
+(define (q-rear q) (q-empty-check q) (cadr q))
 
 ;;; q-remove! q obj
 ;;;  Remove all occurences of obj from Q.
-(define-public (q-remove! q obj)
+(define (q-remove! q obj)
   (set-car! q (delq! obj (car q)))
   (sync-q! q))
 
 ;;; q-push! q obj
 ;;;  Add obj to the front of Q
-(define-public (q-push! q obj)
+(define (q-push! q obj)
   (let ((h (cons obj (car q))))
     (set-car! q h)
     (or (cdr q) (set-cdr! q h)))
@@ -121,7 +147,7 @@
 
 ;;; enq! q obj
 ;;;  Add obj to the rear of Q
-(define-public (enq! q obj)
+(define (enq! q obj)
   (let ((h (cons obj '())))
     (if (null? (car q))
        (set-car! q h)
@@ -131,7 +157,7 @@
 
 ;;; q-pop! q
 ;;;  Take the front of Q and return it.
-(define-public (q-pop! q)
+(define (q-pop! q)
   (q-empty-check q)
   (let ((it (caar q))
        (next (cdar q)))
@@ -142,11 +168,11 @@
 
 ;;; deq! q
 ;;;  Take the front of Q and return it.
-(define-public deq! q-pop!)
+(define deq! q-pop!)
 
 ;;; q-length q
 ;;;  Return the number of enqueued elements.
 ;;;
-(define-public (q-length q) (length (car q)))
+(define (q-length q) (length (car q)))
 
 ;;; q.scm ends here