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