www

commit 1cea73c9922cd9206dc407e2aa087fb499009c67
parent 4fda0d876b041572c2545cbb2a93e9925572061a
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Mon, 17 Apr 2017 21:21:08 +0200

Improve scrloc

Diffstat:
M
dotlambda/implementation.rkt
 | 
20
++++++++++++++------

1 file changed, 14 insertions(+), 6 deletions(-)
diff --git a/dotlambda/implementation.rkt b/dotlambda/implementation.rkt
@@ -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*