diff --git a/collects/frtime/core/contract.rkt b/collects/frtime/core/contract.rkt index d5e3d9f583..b97b17cd7c 100644 --- a/collects/frtime/core/contract.rkt +++ b/collects/frtime/core/contract.rkt @@ -1,4 +1,4 @@ -#lang scheme +#lang racket (define-syntax-rule (provide/contract* [id ctrct] ...) #;(provide/contract [id ctrct] ...) diff --git a/collects/frtime/core/dv.rkt b/collects/frtime/core/dv.rkt index d61cd7140f..4b9ba467b6 100644 --- a/collects/frtime/core/dv.rkt +++ b/collects/frtime/core/dv.rkt @@ -1,4 +1,4 @@ -#lang scheme +#lang racket (require "contract.rkt") (define-struct dv (vec-length next-avail-pos vec) #:mutable) diff --git a/collects/frtime/core/erl.rkt b/collects/frtime/core/erl.rkt index 726a161e62..2849650c2d 100644 --- a/collects/frtime/core/erl.rkt +++ b/collects/frtime/core/erl.rkt @@ -1,4 +1,4 @@ -#lang scheme +#lang racket (require "match.rkt" "contract.rkt" #;"sema-mailbox.rkt" diff --git a/collects/frtime/core/frp.rkt b/collects/frtime/core/frp.rkt index ff30353e7a..5c50d8a503 100644 --- a/collects/frtime/core/frp.rkt +++ b/collects/frtime/core/frp.rkt @@ -1,4 +1,4 @@ -#lang scheme +#lang racket (require (only-in mzlib/etc identity nor) "contract.rkt" diff --git a/collects/frtime/core/heap.rkt b/collects/frtime/core/heap.rkt index 4559867687..0f23a7feb3 100644 --- a/collects/frtime/core/heap.rkt +++ b/collects/frtime/core/heap.rkt @@ -1,4 +1,4 @@ -#lang scheme +#lang racket (require "dv.rkt" "contract.rkt") diff --git a/collects/frtime/core/mailbox.rkt b/collects/frtime/core/mailbox.rkt index 5ef296f9c0..5f375d16f4 100644 --- a/collects/frtime/core/mailbox.rkt +++ b/collects/frtime/core/mailbox.rkt @@ -1,4 +1,4 @@ -#lang scheme +#lang racket (require "contract.rkt" "match.rkt" scheme/async-channel) diff --git a/collects/frtime/core/match.rkt b/collects/frtime/core/match.rkt index 45d196babe..a2b6d71741 100644 --- a/collects/frtime/core/match.rkt +++ b/collects/frtime/core/match.rkt @@ -1,4 +1,4 @@ -#lang scheme +#lang racket (define-struct a-match-fail ()) (define match-fail (make-a-match-fail)) diff --git a/collects/frtime/core/sema-mailbox.rkt b/collects/frtime/core/sema-mailbox.rkt index a97639af8d..44b1e72e75 100644 --- a/collects/frtime/core/sema-mailbox.rkt +++ b/collects/frtime/core/sema-mailbox.rkt @@ -1,4 +1,4 @@ -#lang scheme +#lang racket (require "match.rkt" "contract.rkt") diff --git a/collects/frtime/gui/aux-mixin-macros.rkt b/collects/frtime/gui/aux-mixin-macros.rkt index 8a84b550d9..dd7515a15f 100644 --- a/collects/frtime/gui/aux-mixin-macros.rkt +++ b/collects/frtime/gui/aux-mixin-macros.rkt @@ -1,6 +1,6 @@ (module aux-mixin-macros frtime (require "mixin-macros.rkt") - (require mzlib/class) + (require racket/class) ;; consider taking out setter