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:
parent
01df178c3f
commit
7337c44604
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
|
||||
(define-syntax-rule (provide/contract* [id ctrct] ...)
|
||||
#;(provide/contract [id ctrct] ...)
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require "contract.rkt")
|
||||
|
||||
(define-struct dv (vec-length next-avail-pos vec) #:mutable)
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require "match.rkt"
|
||||
"contract.rkt"
|
||||
#;"sema-mailbox.rkt"
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require (only-in mzlib/etc
|
||||
identity nor)
|
||||
"contract.rkt"
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require "dv.rkt"
|
||||
"contract.rkt")
|
||||
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require "contract.rkt"
|
||||
"match.rkt"
|
||||
scheme/async-channel)
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
|
||||
(define-struct a-match-fail ())
|
||||
(define match-fail (make-a-match-fail))
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
#lang scheme
|
||||
#lang racket
|
||||
(require "match.rkt"
|
||||
"contract.rkt")
|
||||
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
(module aux-mixin-macros frtime
|
||||
(require "mixin-macros.rkt")
|
||||
(require mzlib/class)
|
||||
(require racket/class)
|
||||
|
||||
|
||||
;; consider taking out setter
|
||||
|
|
Loading…
Reference in New Issue
Block a user