Some more "typed-scheme" -> "typed-racket".
This commit is contained in:
parent
746aea0024
commit
fde857e0cb
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
(require/typed file/md5
|
||||
[md5 ((U Bytes Input-Port) -> Bytes)])
|
||||
(provide md5)
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
#lang typed-scheme
|
||||
;; typed-scheme wrapper on file/tar
|
||||
#lang typed/racket/base
|
||||
;; typed-racket wrapper on file/tar
|
||||
;; yc 2009/2/25
|
||||
|
||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils typed/mred/mred)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
@ -7,4 +7,3 @@
|
|||
[dns-get-name (String String -> String)]
|
||||
[dns-get-mail-exchanger (String String -> String )]
|
||||
[dns-find-nameserver (-> (Option String))])
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/file/gif)
|
||||
(provide (all-from-out typed/file/gif))
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
;; -- basic mime structures --
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,8 +1,8 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
(require/typed net/sendurl
|
||||
[send-url (String -> Void)]
|
||||
[unix-browser-list (Listof Symbol)]
|
||||
[browser-preference? (String -> Boolean)]
|
||||
[external-browser (-> (U Symbol #f (Pair String String)))])
|
||||
[send-url (String -> Void)]
|
||||
[unix-browser-list (Listof Symbol)]
|
||||
[browser-preference? (String -> Boolean)]
|
||||
[external-browser (-> (U Symbol #f (Pair String String)))])
|
||||
|
||||
(provide send-url unix-browser-list browser-preference? external-browser)
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(require typed/private/utils)
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang typed-scheme
|
||||
#lang typed/racket/base
|
||||
|
||||
(define-syntax-rule (dt nm t)
|
||||
(begin (define-type-alias nm t) (provide nm)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user