rs: Switch to #lang racket, but keep the types where they work.
This commit is contained in:
parent
f16747d157
commit
02d5384674
2 changed files with 6 additions and 5 deletions
|
@ -1,8 +1,8 @@
|
||||||
#lang typed/racket
|
#lang racket
|
||||||
|
|
||||||
;;; Tests for dds/rs.
|
;;; Tests for dds/rs.
|
||||||
|
|
||||||
(require typed/rackunit "rs.rkt")
|
(require rackunit "rs.rkt")
|
||||||
|
|
||||||
(test-case "Basic definitions"
|
(test-case "Basic definitions"
|
||||||
(let* ([r1 (reaction (set 'x) (set 'y) (set 'z))]
|
(let* ([r1 (reaction (set 'x) (set 'y) (set 'z))]
|
||||||
|
|
7
rs.rkt
7
rs.rkt
|
@ -1,11 +1,12 @@
|
||||||
#lang typed/racket
|
#lang racket
|
||||||
|
|
||||||
|
(require typed/racket)
|
||||||
|
|
||||||
;;; dds/rs
|
;;; dds/rs
|
||||||
|
|
||||||
;;; Definitions for working with reaction systems.
|
;;; Definitions for working with reaction systems.
|
||||||
|
|
||||||
(require/typed "utils.rkt"
|
(require "utils.rkt")
|
||||||
[string->any (String -> Any)])
|
|
||||||
|
|
||||||
(provide
|
(provide
|
||||||
;; Structures
|
;; Structures
|
||||||
|
|
Loading…
Reference in a new issue