From 19df0978981c38edf45e7d20632884ce083387b2 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 9 Aug 2014 23:50:48 -0700 Subject: [PATCH] Fix silly mistake in call to pattern->matcher --- minimart/gestalt.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/minimart/gestalt.rkt b/minimart/gestalt.rkt index cbe41e7..5fa66b1 100644 --- a/minimart/gestalt.rkt +++ b/minimart/gestalt.rkt @@ -240,7 +240,7 @@ ;; Produces a "full" gestalt including the wildcard matcher at each of ;; the n metalevels and m levels. (define (gestalt-full n m) - (define w (pattern->matcher ?)) + (define w (pattern->matcher #t ?)) (gestalt (make-list n (make-list m (cons w w))))) ;; map-zip: ((U 'right-longer 'left-longer) (Listof X) -> (Listof Y))