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

!dump-registered-preserves-patterns!

This commit is contained in:
Tony Garnock-Jones 2021-06-03 23:23:48 +02:00
parent b49178146d
commit 2a9cdfc5cc
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
syndicate/pattern.rkt
View File

@ -13,6 +13,8 @@
pattern->capture-paths
pattern->capture-names
!dump-registered-preserves-patterns!
(all-from-out "schemas/gen/dataspace-patterns.rkt"))
(require (for-syntax racket/base))
@ -314,3 +316,12 @@
(select-pattern-leaves desc
(lambda (key-rev name-stx) (list name-stx))
(lambda (key-rev value) (list))))
(define-syntax (!dump-registered-preserves-patterns! stx)
(syntax-case stx ()
[(_)
(let ()
(local-require racket/pretty)
(for [(k (in-list (free-id-table-keys preserves-pattern-registry)))]
(printf " - ~v\n" k))
#'(void))]))