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

remove shared-syntax

Browse Source
This commit is contained in:
Matthew Butterick 2016-08-10 18:59:06 -07:00
parent 460efbf3dc
commit f5078fb50b
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
beautiful-racket-lib/br/define.rkt
View File

@ -43,9 +43,8 @@
(begin-for-syntax
;; expose the caller context within br:define macros with syntax parameter
(require (for-syntax racket/base) racket/stxparam)
(provide caller-stx shared-syntax)
(define-syntax-parameter caller-stx (λ(stx) (error 'caller-stx-not-parameterized)))
(define-syntax-parameter shared-syntax (λ(stx) (error 'shared-syntax-not-parameterized))))
(provide caller-stx)
(define-syntax-parameter caller-stx (λ(stx) (error 'caller-stx-not-parameterized))))
(define-syntax (define-cases stx)
@ -172,10 +171,9 @@
(λ (stx)
(define result
(syntax-parameterize ([caller-stx (make-rename-transformer #'stx)])
(syntax-parameterize ([shared-syntax (make-shared-syntax-macro caller-stx)])
(syntax-case stx LITERALS
(syntax-case stx LITERALS
[pat . result-exprs] ...
else-clause))))
else-clause)))
(if (syntax? result)
result
(datum->syntax #'id result)))))]

2
beautiful-racket-lib/br/main.rkt
View File

@ -6,7 +6,7 @@
(all-from-out racket/list racket/string racket/format racket/match racket/port
br/syntax br/datum br/debug br/cond racket/function br/define)
(for-syntax (all-from-out racket/base racket/syntax br/syntax br/debug))
(for-syntax caller-stx shared-syntax with-shared-id with-calling-site-id)) ; from br/define
(for-syntax caller-stx with-shared-id with-calling-site-id)) ; from br/define
;; todo: activate at-exp reader by default