add loc

beautiful-racket-demo/scriptish-demo/expander.rkt

@@ -19,10 +19,11 @@
   #'(make-hash (list (cons K V) ...)))
 
 (define-macro (func-def (ARG ...) STMT ...)
-  #'(λ (ARG ...)
+  (syntax/loc caller-stx
+    (λ (ARG ...)
       (let/cc return-cc
         (syntax-parameterize ([return (make-rename-transformer #'return-cc)])
-          STMT ... (void)))))
+          STMT ... (void))))))
 
 (define-syntax-parameter return
   (λ (stx) (error 'not-parameterized)))

beautiful-racket-demo/scriptish-demo/test.rkt

@@ -14,7 +14,7 @@ var thing = {
 };
 
 thing.foo; // prints 42
-thing.bar; // prints #<procedure:...>
+thing.bar; // prints #<procedure:...test.rkt:11:12>
 thing.bar(3); // prints 18
 
 if ( thing.foo == 42 ) {