suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Move core to racket lang.

Browse Source 
This was an easy set of modules to port-just switched the #lang form
from #lang scheme to #lang racket.
This commit is contained in:
Patrick Mahoney 2012-08-14 20:45:27 -04:00 committed by Gregory Cooper
parent 01df178c3f
commit 7337c44604
9 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/frtime/core/contract.rkt
View File

@ -1,4 +1,4 @@
#lang scheme #lang racket
(define-syntax-rule (provide/contract* [id ctrct] ...) (define-syntax-rule (provide/contract* [id ctrct] ...)
#;(provide/contract [id ctrct] ...) #;(provide/contract [id ctrct] ...)

2
collects/frtime/core/dv.rkt
View File

@ -1,4 +1,4 @@
#lang scheme #lang racket
(require "contract.rkt") (require "contract.rkt")
(define-struct dv (vec-length next-avail-pos vec) #:mutable) (define-struct dv (vec-length next-avail-pos vec) #:mutable)

2
collects/frtime/core/erl.rkt
View File

@ -1,4 +1,4 @@
#lang scheme #lang racket
(require "match.rkt" (require "match.rkt"
"contract.rkt" "contract.rkt"
#;"sema-mailbox.rkt" #;"sema-mailbox.rkt"

2
collects/frtime/core/frp.rkt
View File

@ -1,4 +1,4 @@
#lang scheme #lang racket
(require (only-in mzlib/etc (require (only-in mzlib/etc
identity nor) identity nor)
"contract.rkt" "contract.rkt"

2
collects/frtime/core/heap.rkt
View File

@ -1,4 +1,4 @@
#lang scheme #lang racket
(require "dv.rkt" (require "dv.rkt"
"contract.rkt") "contract.rkt")

2
collects/frtime/core/mailbox.rkt
View File

@ -1,4 +1,4 @@
#lang scheme #lang racket
(require "contract.rkt" (require "contract.rkt"
"match.rkt" "match.rkt"
scheme/async-channel) scheme/async-channel)

2
collects/frtime/core/match.rkt
View File

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

2
collects/frtime/core/sema-mailbox.rkt
View File

@ -1,4 +1,4 @@
#lang scheme #lang racket
(require "match.rkt" (require "match.rkt"
"contract.rkt") "contract.rkt")

2
collects/frtime/gui/aux-mixin-macros.rkt
View File

@ -1,6 +1,6 @@
(module aux-mixin-macros frtime (module aux-mixin-macros frtime
(require "mixin-macros.rkt") (require "mixin-macros.rkt")
(require mzlib/class) (require racket/class)
;; consider taking out setter ;; consider taking out setter