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

Default success/jsexpr transformers in gestalt/jsexpr conversion.

This commit is contained in:
Tony Garnock-Jones 2014-05-28 16:31:40 -04:00
parent dbb7e8fe67
commit edd4436297
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
minimart/gestalt.rkt
View File

@ -262,14 +262,14 @@
(when subs (fprintf port " - subs:") (pretty-print-matcher subs port #:indent 9))
(when advs (fprintf port " - advs:") (pretty-print-matcher advs port #:indent 9)))))))
(define (gestalt->jsexpr g success->jsexpr)
(define (gestalt->jsexpr g [success->jsexpr (lambda (v) #t)])
(list "gestalt" (for/list [(ls (in-list (gestalt-metalevels g)))]
(for/list [(l (in-list ls))]
(match-define (cons subs advs) l)
(list (matcher->jsexpr subs success->jsexpr)
(matcher->jsexpr advs success->jsexpr))))))
(define (jsexpr->gestalt j jsexpr->success)
(define (jsexpr->gestalt j [jsexpr->success (lambda (v) #t)])
(match j
[(list "gestalt" mlsj)
(gestalt (for/list [(lsj (in-list mlsj))]