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

Switch out? to from-typed? as it has the same meaning.

Browse Source 
(cherry picked from commit 03e1ffda3e)
This commit is contained in:
Eric Dobson 2013-04-06 10:57:26 -07:00 committed by Ryan Culpepper
parent 52f892a5fd
commit 9411b01e3f
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-racket/private/type-contract.rkt
View File

@ -116,7 +116,7 @@
(define (contract-kind->keyword sym) (define (contract-kind->keyword sym)
(string->keyword (symbol->string sym))) (string->keyword (symbol->string sym)))
(define (type->contract ty fail #:out [out? #f] #:typed-side [from-typed? #t] #:kind [kind 'impersonator]) (define (type->contract ty fail #:typed-side [from-typed? #t] #:kind [kind 'impersonator])
(define vars (make-parameter '())) (define vars (make-parameter '()))
(define current-contract-kind (make-parameter flat-sym)) (define current-contract-kind (make-parameter flat-sym))
(define (increase-current-contract-kind! kind) (define (increase-current-contract-kind! kind)
@ -205,7 +205,7 @@
(and rst (t->c/neg rst))))] (and rst (t->c/neg rst))))]
;; functions with filters or objects ;; functions with filters or objects
[(arr: dom (Values: (list (Result: rngs _ _) ...)) rst #f '()) [(arr: dom (Values: (list (Result: rngs _ _) ...)) rst #f '())
(if (and out? pos?) (if (and from-typed? pos?)
(values (map t->c/neg dom) (values (map t->c/neg dom)
null null
(map t->c rngs) (map t->c rngs)

2
collects/typed-racket/typecheck/provide-handling.rkt
View File

@ -89,7 +89,7 @@
[(dict-ref defs internal-id #f) [(dict-ref defs internal-id #f)
=> =>
(match-lambda (match-lambda
[(def-binding _ (app (λ (ty) (type->contract ty (λ () #f) #:out #t)) (? values cnt))) [(def-binding _ (app (λ (ty) (type->contract ty (λ () #f))) (? values cnt)))
(values (values
(with-syntax* ([id internal-id] (with-syntax* ([id internal-id]
[cnt-id (cnt-id-introducer #'id)] [cnt-id (cnt-id-introducer #'id)]