From 63089efdbc73ec7c6a0a0d8809eaa0eb9cbea671 Mon Sep 17 00:00:00 2001 From: Sam Caldwell Date: Wed, 1 May 2019 10:17:04 -0400 Subject: [PATCH] fixup fold in book club --- racket/typed/examples/roles/book-club.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/typed/examples/roles/book-club.rkt b/racket/typed/examples/roles/book-club.rkt index 724706a..ace718b 100644 --- a/racket/typed/examples/roles/book-club.rkt +++ b/racket/typed/examples/roles/book-club.rkt @@ -47,8 +47,8 @@ (define (lookup [title : String] [inv : Inventory] -> Int) - (for/fold [stock 0] - [item inv] + (for/fold ([stock 0]) + ([item inv]) (if (equal? title (select 0 item)) (select 1 item) stock)))