suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[honu] provide honu-syntax through the user api

Browse Source
This commit is contained in:
Jon Rafkind 2012-11-01 01:17:40 -06:00
parent 2984bfe8e2
commit fb42f390c9
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/honu/core/api.rkt
View File

@ -5,10 +5,12 @@
(require "private/syntax.rkt"
"private/literals.rkt"
(for-syntax "private/compile.rkt"
"private/syntax.rkt"
"private/parse2.rkt"))
(provide define-honu-syntax
define-literal
(for-syntax racket-syntax
honu-expression
honu-syntax
honu-body
parse-all))

9
collects/honu/core/private/macro2.rkt
View File

@ -394,10 +394,11 @@
(with-syntax ([(out ...) maybe-out])
#'(#:with result (parse-stuff honu-syntax (#%parens out ...))))
#'(#:with result #'()))])
#'[pattern (~seq new-pattern ...)
withs ... ...
result-with ...
]))
(syntax/loc honu-pattern
[pattern (~seq new-pattern ...)
withs ... ...
result-with ...
])))
(define pattern-stuff
(for/list ([pattern (syntax->list #'(pattern-stx ...))]