Move core to racket lang.

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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