Racketizing

collects/net/ftp-sig.rkt

@@ -1,4 +1,4 @@
-#lang scheme/signature
+#lang racket/signature
 
 ftp-connection?
 ftp-cd

collects/net/ftp-unit.rkt

@@ -1,10 +1,10 @@
-#lang scheme/unit
+#lang racket/unit
 
 ;; Version 0.2
 ;;   Version 0.1a
 ;;   Micah Flatt
 ;;   06-06-2002
-(require scheme/date scheme/file scheme/port scheme/tcp "ftp-sig.ss")
+(require racket/date racket/file racket/port racket/tcp "ftp-sig.rkt")
 (import)
 (export ftp^)
 

collects/net/ftp.rkt

@@ -1,5 +1,5 @@
-#lang scheme/base
-(require scheme/unit "ftp-sig.ss" "ftp-unit.ss")
+#lang racket/base
+(require racket/unit "ftp-sig.rkt" "ftp-unit.rkt")
 
 (define-values/invoke-unit/infer ftp@)