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

add with-syntax

Browse Source
This commit is contained in:
Jon Rafkind 2010-07-19 16:09:24 -06:00
parent 03562eb8e3
commit 02e87cdc0c
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/honu/private/common.honu
View File

@ -1,5 +1,7 @@
#lang honu/core
require (forSyntax "with.honu");
provide print;
macro print ()

9
collects/honu/private/with.honu Normal file
View File

@ -0,0 +1,9 @@
#lang honu/core
provide withSyntax;
macro withSyntax () {
_ [variable:identifier expr:expression] { b ... /* body:statement */ }; } {
#sx scheme:syntax #sx(with-syntax ([variable expr_result]) (honu-unparsed-begin b ...))
// applySchemeSyntax(#sx(real-syntax (with-syntax ([variable expr_result]) (honu-unparsed-begin b ...))))
}