+ end else begin (* there's room for another uri *)
+ if (queue_mem uri queue.uris) || (UriSet.mem uri queue.olduris)
+ then
+ begin (* url already in *)
+ debug_print "Answer: already_in";
+ "already_in"
+ end else begin (* uri not in *)
+ Queue.add uri queue.uris;
+ debug_print "Answer: added";
+ "added"
+ end