suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

threads: fix for multiple threads with the same wakeup time

Browse Source
This commit is contained in:
Matthew Flatt 2019-05-21 13:57:42 -06:00
parent 6b09e4f4dd
commit 266c5eeb9b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/thread/tree.rkt
View File

@ -53,6 +53,7 @@
;; ---------------------------------------- ;; ----------------------------------------
;; insert : tree X Y (X X -> bool) -> tree ;; insert : tree X Y (X X -> bool) -> tree
;; Updates existing value ifthe key is already in the tree.
(define (insert t key val <?) (define (insert t key val <?)
(cond (cond
[(not t) (combine key val #f #f)] [(not t) (combine key val #f #f)]
@ -66,7 +67,7 @@
node-right node-right
node-left node-left
reverse-combine)] reverse-combine)]
[else t])) [else (struct-copy node t [val val])]))
;; insert-to : tree X Y (X X -> bool) ;; insert-to : tree X Y (X X -> bool)
;; (tree-of-X -> tree-of-X) ;; (tree-of-X -> tree-of-X)