From 482596754b59494533c049b7c886f7f923dd7130 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 1 Feb 2007 07:02:00 +0000 Subject: [PATCH] change binary-tree to maybe correctly match the rules svn: r5532 --- collects/tests/mzscheme/benchmarks/shootout/binarytrees.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/benchmarks/shootout/binarytrees.ss b/collects/tests/mzscheme/benchmarks/shootout/binarytrees.ss index f039b121b2..bd82bb38f5 100644 --- a/collects/tests/mzscheme/benchmarks/shootout/binarytrees.ss +++ b/collects/tests/mzscheme/benchmarks/shootout/binarytrees.ss @@ -5,7 +5,11 @@ (module binarytrees mzscheme (define-struct node (left val right)) - (define-struct leaf (val)) + + ;; Instead of (define-struct leaf (val)): + (define (make-leaf val) (make-node #f val #f)) + (define (leaf? l) (not (node-left l))) + (define (leaf-val l) (node-val l)) (define (make item d) (if (= d 0)