From 3a2dcea3577ef7165cd16777cddd4d138a6cf832 Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Fri, 29 Nov 2002 01:29:08 +0100
Subject: [PATCH] Improved _sprintf. Fixed a cast bug.
Rev: lib/modules/ADT.pmod/Queue.pike:1.8
---
lib/modules/ADT.pmod/Queue.pike | 10 +++-------
1 file changed, 3 insertions(+), 7 deletions(-)
diff --git a/lib/modules/ADT.pmod/Queue.pike b/lib/modules/ADT.pmod/Queue.pike
index 371057e3a3..2bfcfe292a 100644
--- a/lib/modules/ADT.pmod/Queue.pike
+++ b/lib/modules/ADT.pmod/Queue.pike
@@ -1,4 +1,4 @@
-// $Id: Queue.pike,v 1.7 2002/10/25 20:00:27 nilsson Exp $
+// $Id: Queue.pike,v 1.8 2002/11/29 00:29:08 nilsson Exp $
//! A simple FIFO queue.
@@ -83,15 +83,11 @@ void flush()
mixed cast(string to) {
switch(to) {
case "object": return this_object();
- case "array": return l[tail..head];
+ case "array": return l[tail..head-1];
}
error("Can not cast ADT.Queue to %s.\n", to);
}
string _sprintf(int t) {
- switch(t) {
- case 't': return "ADT.Queue";
- case 'O': return sprintf("ADT.Queue(%O)", cast("array"));
- }
- error("Can not print ADT.Queue as %c.\n", t);
+ return t=='O' && sprintf("%O%O", this_program, cast("array"));
}
--
GitLab