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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
dotlambda/implementation.rkt
View File

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