From 5c7e49bebb22654779e3106168a83cf27eb89c6e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Fri, 4 Mar 2016 16:32:39 +0100 Subject: [PATCH] Fixed arrow tracking in lib/low (wrong syntax/loc for the module's initial require form etc.) --- graph-lib/lib/low/typed-untyped.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/graph-lib/lib/low/typed-untyped.rkt b/graph-lib/lib/low/typed-untyped.rkt index 0cea441d..e7af8e25 100644 --- a/graph-lib/lib/low/typed-untyped.rkt +++ b/graph-lib/lib/low/typed-untyped.rkt @@ -101,9 +101,9 @@ (begin (define-syntax (define-typed/untyped-modules stx) (syntax-parse stx - [(_ (~optional (~and no-test #:no-test)) + [(def-t/u-mod (~optional (~and no-test #:no-test)) (~optional (~and untyped-first #:untyped-first)) . body) - (define (ds sym) (datum->syntax stx sym stx)) + (define (ds sym) (datum->syntax #'def-t/u-mod sym #'def-t/u-mod)) (define/with-syntax module-typed #`(module #,(ds 'typed) #,(ds 'typed/racket) . body))