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

Improve scrloc

Browse Source
This commit is contained in:
Georges Dupéron 2017-04-17 21:21:08 +02:00
parent 4fda0d876b
commit 1cea73c992
1 changed files with 14 additions and 6 deletions

20
dotlambda/implementation.rkt
View File

@ -43,9 +43,13 @@
#'(define-syntax (name stx2)
(syntax-case stx2 ()
[(_ . body)
#`(wrapped-#%module-begin
. #,(fold-syntax (replace-dots #'-λ #'-define-syntax #'-mrt)
#'body))]))]))
(datum->syntax
stx2
`(,#'wrapped-#%module-begin
. ,(fold-syntax (replace-dots #'-λ #'-define-syntax #'-mrt)
#'body))
stx2
stx2)]))]))
(define-syntax (make-#%top-interaction stx)
(syntax-case stx ()
@ -54,9 +58,13 @@
#'(define-syntax (name stx2)
(syntax-case stx2 ()
[(_ . body)
#`(wrapped-#%top-interaction
. #,(fold-syntax (replace-dots #'-λ #'-define-syntax #'-mrt)
#'body))]))]))
(datum->syntax
stx2
`(,#'wrapped-#%top-interaction
. ,(fold-syntax (replace-dots #'-λ #'-define-syntax #'-mrt)
#'body))
stx2
stx2)]))]))
(define-for-syntax (make-λ l args e percent? -λ -define-syntax -mrt)
(define percent*