From 4b3fd628a766ce3fddcadf878aa6537e7fea8138 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 28 Apr 2008 14:48:37 -0500 Subject: [PATCH] make splay trees work --- extra/trees/splay/splay.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/trees/splay/splay.factor b/extra/trees/splay/splay.factor index f2e3f9645f..8931db3a10 100644 --- a/extra/trees/splay/splay.factor +++ b/extra/trees/splay/splay.factor @@ -30,13 +30,13 @@ INSTANCE: splay tree-mixin drop dup node-right swapd r> swap ; : cmp ( key node -- obj node -1/0/1 ) - 2dup node-key <=> ; + 2dup node-key key-side ; : lcmp ( key node -- obj node -1/0/1 ) - 2dup node-left node-key <=> ; + 2dup node-left node-key key-side ; : rcmp ( key node -- obj node -1/0/1 ) - 2dup node-right node-key <=> ; + 2dup node-right node-key key-side ; DEFER: (splay)