From 266c5eeb9b6fc981b832596c4556fb85c81bae91 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 21 May 2019 13:57:42 -0600
Subject: [PATCH] threads: fix for multiple threads with the same wakeup time

---
 racket/src/thread/tree.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/src/thread/tree.rkt b/racket/src/thread/tree.rkt
index 2bc0cab401..70aa94e267 100644
--- a/racket/src/thread/tree.rkt
+++ b/racket/src/thread/tree.rkt
@@ -53,6 +53,7 @@
 ;; ----------------------------------------
 
 ;; insert : tree X Y (X X -> bool) -> tree
+;; Updates existing value ifthe key is already in the tree.
 (define (insert t key val <?)
   (cond
     [(not t) (combine key val #f #f)]
@@ -66,7 +67,7 @@
                 node-right
                 node-left
                 reverse-combine)]
-    [else t]))
+    [else (struct-copy node t [val val])]))
 
 ;; insert-to : tree X Y (X X -> bool) 
 ;;             (tree-of-X -> tree-of-X)