Rename scm to rkt
This commit is contained in:
parent
69f969bb71
commit
70295d0dcf
|
|
@ -1,6 +1,6 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
|
|
||||||
(require "uniquify.scm")
|
(require "uniquify.rkt")
|
||||||
|
|
||||||
(provide remove-complex-opera*)
|
(provide remove-complex-opera*)
|
||||||
|
|
||||||
|
|
@ -1,6 +1,6 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
|
|
||||||
(require "test-util.scm")
|
(require "test-util.rkt")
|
||||||
|
|
||||||
(test-eq
|
(test-eq
|
||||||
(compile-arm-asm "aarch64-hello.s" "a.out")
|
(compile-arm-asm "aarch64-hello.s" "a.out")
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
|
|
||||||
(require "test-util.scm")
|
(require "test-util.rkt")
|
||||||
(require "c2.scm")
|
(require "c2.rkt")
|
||||||
|
|
||||||
(test-eq (env-head-value `((a 1))) 1)
|
(test-eq (env-head-value `((a 1))) 1)
|
||||||
(test-eq (env-head-symbol `((a 1))) `a)
|
(test-eq (env-head-symbol `((a 1))) `a)
|
||||||
|
|
@ -1,9 +1,9 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
|
|
||||||
(require "test-util.scm")
|
(require "test-util.rkt")
|
||||||
(require "remove-complex-oper.scm")
|
(require "remove-complex-oper.rkt")
|
||||||
(require "explicate-control.scm")
|
(require "explicate-control.rkt")
|
||||||
(require "c2.scm")
|
(require "c2.rkt")
|
||||||
|
|
||||||
(define programs
|
(define programs
|
||||||
(list
|
(list
|
||||||
|
|
@ -1,8 +1,8 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
|
|
||||||
(require "test-util.scm")
|
(require "test-util.rkt")
|
||||||
(require "remove-complex-oper.scm")
|
(require "remove-complex-oper.rkt")
|
||||||
(require "c2.scm")
|
(require "c2.rkt")
|
||||||
|
|
||||||
(define programs
|
(define programs
|
||||||
(list
|
(list
|
||||||
|
|
@ -1,7 +1,7 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
|
|
||||||
(require "uncover-locals.scm")
|
(require "uncover-locals.rkt")
|
||||||
(require "test-util.scm")
|
(require "test-util.rkt")
|
||||||
|
|
||||||
(define programs
|
(define programs
|
||||||
(list
|
(list
|
||||||
|
|
@ -1,8 +1,8 @@
|
||||||
#lang racket
|
#lang racket
|
||||||
|
|
||||||
(require "test-util.scm")
|
(require "test-util.rkt")
|
||||||
(require "uniquify.scm")
|
(require "uniquify.rkt")
|
||||||
(require "c2.scm")
|
(require "c2.rkt")
|
||||||
|
|
||||||
(test-eq ((uniquify-exp (make-immutable-hash) (make-immutable-hash)) `(read))
|
(test-eq ((uniquify-exp (make-immutable-hash) (make-immutable-hash)) `(read))
|
||||||
`(#hash() (read)))
|
`(#hash() (read)))
|
||||||
Loading…
Reference in New Issue