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

Fixed arrow tracking in lib/low (wrong syntax/loc for the module's initial require form etc.)

Browse Source
This commit is contained in:
Georges Dupéron 2016-03-04 16:32:39 +01:00
parent b601cf4498
commit 5c7e49bebb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
graph-lib/lib/low/typed-untyped.rkt
View File

@ -101,9 +101,9 @@
(begin (begin
(define-syntax (define-typed/untyped-modules stx) (define-syntax (define-typed/untyped-modules stx)
(syntax-parse 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) (~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 (define/with-syntax module-typed
#`(module #,(ds 'typed) #,(ds 'typed/racket) #`(module #,(ds 'typed) #,(ds 'typed/racket)
. body)) . body))