mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

(q-pop!): Should be "null?" not "not" for end-of-list.

Browse source 
Reported by Richard Todd.
This commit is contained in:
Kevin Ryde 2004-01-06 21:38:34 +00:00
parent aacff585bc
commit b41478a13d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/q.scm
View file

@ -1,6 +1,6 @@
;;;; q.scm --- Queues ;;;; q.scm --- Queues
;;;; ;;;;
;;;; Copyright (C) 1995, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1995, 2001, 2004 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -136,7 +136,7 @@
(q-empty-check q) (q-empty-check q)
(let ((it (caar q)) (let ((it (caar q))
(next (cdar q))) (next (cdar q)))
(if (not next) (if (null? next)
(set-cdr! q #f)) (set-cdr! q #f))
(set-car! q next) (set-car! q next)
it)) it))