fixup fold in book club

2019-05-01 10:17:04 -04:00 · 2019-05-01 10:17:04 -04:00 · 63089efdbc
parent 1b2527920e
commit 63089efdbc
1 changed files with 2 additions and 2 deletions
--- 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)))