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

Fix provide: when it's after the definition

Browse Source 
Closes PR 11172

Please merge into 6.0
(cherry picked from commit 7e1b3c306d)
This commit is contained in:
Asumu Takikawa 2013-11-20 18:42:28 -05:00 committed by Ryan Culpepper
parent f2129e105f
commit 3e7c9bcadf
2 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/prims.rkt
View File

@ -1097,9 +1097,17 @@ This file defines two sorts of primitives. All of them are provided into any mod
(define-syntax (provide: stx) (define-syntax (provide: stx)
(syntax-parse stx (syntax-parse stx
[(_ [i:id t] ...) [(_ [i:id t] ...)
;; indirection through i*s allows `provide: to come
;; before the original definitions/type annotations
(define i*s (generate-temporaries #'(i ...)))
(for ([i* (in-list i*s)]
[i (in-list (syntax->list #'(i ...)))])
;; lift allows `provide:` to come before original definition
(syntax-local-lift-module-end-declaration #`(define #,i* #,i)))
(define/with-syntax (i* ...) i*s)
(syntax/loc stx (syntax/loc stx
(begin (: i t) ... (begin (: i* t) ...
(provide i ...)))])) (provide (rename-out [i* i] ...))))]))
(define-syntax (declare-refinement stx) (define-syntax (declare-refinement stx)
(syntax-parse stx (syntax-parse stx

12
pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/succeed/pr11172.rkt Normal file
View File

@ -0,0 +1,12 @@
#lang racket/load
;; Test for PR 11172
(module a typed/racket (: n Positive-Integer) (define n 10) (provide: [n Integer]))
(module b typed/racket (define n 10) (provide: [n Integer]))
(module c typed/racket (provide: [n Integer]) (define n 10))
(module d typed/racket (provide: [n Integer]) (: n Positive-Integer) (define n 10))
(require 'a)
n