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

gestalt-empty?

This commit is contained in:
Tony Garnock-Jones 2014-05-14 00:02:23 -04:00
parent 1a0c5fcd62
commit c01d4f09bd
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
minimart/gestalt.rkt
View File

@ -15,6 +15,7 @@
lift-gestalt
simple-gestalt
gestalt-empty
gestalt-empty?
gestalt-combine
gestalt-combine-straight
gestalt-combine-crossed
@ -90,6 +91,10 @@
(define (gestalt-empty) (gestalt '()))
(define (gestalt-empty? g)
(andmap (lambda (ls) (andmap (lambda (l) (and (matcher-empty? (car l)) (matcher-empty? (cdr l)))) ls))
(gestalt-metalevels g)))
(define (map-zip imbalance-handler item-handler ls1 ls2)
(let walk ((ls1 ls1) (ls2 ls2))
(match* (ls1 ls2)