Racketizing
This commit is contained in:
parent
4349df5b6a
commit
63df5311c5
|
@ -1,4 +1,4 @@
|
||||||
#lang scheme/signature
|
#lang racket/signature
|
||||||
|
|
||||||
ftp-connection?
|
ftp-connection?
|
||||||
ftp-cd
|
ftp-cd
|
||||||
|
|
|
@ -1,10 +1,10 @@
|
||||||
#lang scheme/unit
|
#lang racket/unit
|
||||||
|
|
||||||
;; Version 0.2
|
;; Version 0.2
|
||||||
;; Version 0.1a
|
;; Version 0.1a
|
||||||
;; Micah Flatt
|
;; Micah Flatt
|
||||||
;; 06-06-2002
|
;; 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)
|
(import)
|
||||||
(export ftp^)
|
(export ftp^)
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scheme/base
|
#lang racket/base
|
||||||
(require scheme/unit "ftp-sig.ss" "ftp-unit.ss")
|
(require racket/unit "ftp-sig.rkt" "ftp-unit.rkt")
|
||||||
|
|
||||||
(define-values/invoke-unit/infer ftp@)
|
(define-values/invoke-unit/infer ftp@)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user