syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix silly mistake in call to pattern->matcher

This commit is contained in:
Tony Garnock-Jones 2014-08-09 23:50:48 -07:00
parent cf9920dec5
commit 19df097898
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
minimart/gestalt.rkt
View File

@ -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))