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" (require "private/syntax.rkt"
"private/literals.rkt" "private/literals.rkt"
(for-syntax "private/compile.rkt" (for-syntax "private/compile.rkt"
"private/syntax.rkt"
"private/parse2.rkt")) "private/parse2.rkt"))
(provide define-honu-syntax (provide define-honu-syntax
define-literal define-literal
(for-syntax racket-syntax (for-syntax racket-syntax
honu-expression honu-expression
honu-syntax
honu-body honu-body
parse-all)) parse-all))

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

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