#lang racket' -> #lang racket/base' conversions in frtime.

collects/frtime/animation/graphics-sig.rkt

@@ -1,4 +1,5 @@
-#lang racket
+#lang racket/base
+
 (require racket/unit)
 
 (provide graphics^ graphics:posn-less^ graphics:posn^)

collects/frtime/animation/graphics-unit.rkt

@@ -1,4 +1,5 @@
-#lang racket
+#lang racket/base
+
 (require racket/unit
          mred/mred-sig
          "graphics-sig.rkt"

collects/frtime/animation/graphics.rkt

@@ -1,4 +1,5 @@
-#lang racket
+#lang racket/base
+
 (require racket/unit
          mred/mred-sig
          mred

collects/frtime/core/contract.rkt

@@ -1,8 +1,9 @@
-#lang racket
+#lang racket/base
+
+#;(require (for-syntax racket/contract))
 
 (define-syntax-rule (provide/contract* [id ctrct] ...)
   #;(provide/contract [id ctrct] ...)
   (provide id ...))
 
-(provide 
- provide/contract*)
+(provide provide/contract*)

collects/frtime/core/dv.rkt

@@ -1,5 +1,7 @@
-#lang racket
-(require "contract.rkt")
+#lang racket/base
+
+(require racket/match
+         "contract.rkt")
 
 (define-struct dv (vec-length next-avail-pos vec) #:mutable)
 

collects/frtime/core/erl.rkt

@@ -1,5 +1,8 @@
-#lang racket
-(require "match.rkt"
+#lang racket/base
+
+(require racket/bool
+         racket/match
+         "match.rkt"
          "contract.rkt"
          #;"sema-mailbox.rkt"
          "mailbox.rkt")

collects/frtime/core/frp.rkt

@@ -1,5 +1,10 @@
-#lang racket
-(require "contract.rkt"
+#lang racket/base
+
+(require racket/function
+         racket/list
+         racket/match
+         racket/contract
+         "contract.rkt"
          "erl.rkt"
          "heap.rkt")
 

collects/frtime/core/heap.rkt

@@ -1,5 +1,9 @@
-#lang racket
-(require "dv.rkt"
+#lang racket/base
+
+(require racket/bool
+         racket/match
+         racket/contract
+         "dv.rkt"
          "contract.rkt")
 
 (define-struct t (sorter equality data))

collects/frtime/core/mailbox.rkt

@@ -1,5 +1,9 @@
-#lang racket
-(require "contract.rkt"
+#lang racket/base
+
+(require racket/bool
+         racket/list
+         racket/match
+         "contract.rkt"
          "match.rkt"
          racket/async-channel)
 

collects/frtime/core/match.rkt

@@ -1,4 +1,4 @@
-#lang racket
+#lang racket/base
 
 (define-struct a-match-fail ())
 (define match-fail (make-a-match-fail))

collects/frtime/core/sema-mailbox.rkt

@@ -1,5 +1,9 @@
-#lang racket
-(require "match.rkt"
+#lang racket/base
+
+(require racket/list
+         racket/bool
+         racket/match
+         "match.rkt"
          "contract.rkt")
 
 (define (call-with-semaphore s thunk)

collects/frtime/develop-frtime.rkt

@@ -1,6 +1,6 @@
-#lang racket
-(require setup/link)
+#lang racket/base
 
+(require setup/link)
 
 #|Update this to point to your racket installation directory|#
 (define install-path "C:/Program Files/Racket/collects/frtime")
@@ -9,20 +9,16 @@
 (define dev-path "C:/Users/user/Documents/GitHub/racket/collects/frtime")
 
 #|Then call one of these functions to begin developing frtime, or to halt development.|#
-(define start-developing-frtime
-  (lambda ()
-    (start-developing-collection dev-path install-path)))
+(define (start-developing-frtime)
+  (start-developing-collection dev-path install-path))
 
 
-(define stop-developing-frtime
-  (lambda ()
-    (stop-developing-collection dev-path install-path)))
+(define (stop-developing-frtime)
+  (stop-developing-collection dev-path install-path))
 
-(define start-developing-collection
-  (lambda (dev-coll-path install-coll-path)
-    (links install-coll-path #:remove? #t)
-    (links dev-coll-path)))
+(define (start-developing-collection dev-coll-path install-coll-path)
+  (links install-coll-path #:remove? #t)
+  (links dev-coll-path))
 
-(define stop-developing-collection
-  (lambda (dev-coll-path install-coll-path)
-    (start-developing-collection install-coll-path dev-coll-path)))
+(define (stop-developing-collection dev-coll-path install-coll-path)
+  (start-developing-collection install-coll-path dev-coll-path))

collects/frtime/frlibs/date.rkt

@@ -1,6 +1,7 @@
-#lang racket
-(require (rename-in (only-in frtime/frtime provide) 
-                    [provide frtime:provide]))
+#lang racket/base
+
+(require racket/promise
+         (only-in frtime/frtime [provide frtime:provide]))
 
 (frtime:provide (lifted date->string
                         date-display-format

collects/frtime/opt/lowered-equivs.rkt

@@ -1,10 +1,10 @@
 ;; This module defines all the logic necessary for working with lowered
 ;; equivalents at the syntactic level.  That is, it treats functions simply 
 ;; as syntactic identifiers.
-#lang racket
+#lang racket/base
+
 (provide (except-out (all-defined-out)
                      module-identifier=?))
-(require (only-in srfi/1 any))
 
 (define module-identifier=? free-identifier=?)