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

use .rktl suffix for files meant to be 'load'ed

Browse Source 
original commit: e504acb72622f4668a50770476fc7545ef9450b0
This commit is contained in:
Matthew Flatt 2010-05-01 09:57:07 -06:00
parent b40470205b
commit 212171f54f
18 changed files with 33 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/awk.rkt → collects/tests/racket/awk.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'awk)

0
collects/tests/racket/binc.rkt → collects/tests/racket/binc.rktl
View File

2
collects/tests/racket/compat.rkt → collects/tests/racket/compat.rktl
View File

@ -1,6 +1,6 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'compat)

4
collects/tests/racket/contract-mzlib-test.rkt → collects/tests/racket/contract-mzlib-test.rktl
View File

@ -1,12 +1,12 @@
#|
This file started out as a copy of contract-test.rkt.
This file started out as a copy of contract-test.rktl.
Its purpose is to try to ensure that the mzlib version
of the contract library does not change over time.
|#
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'mzlib/contract)
(parameterize ([error-print-width 200])

2
collects/tests/racket/etc.rkt → collects/tests/racket/etc.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'etc)

2
collects/tests/racket/kw.rkt → collects/tests/racket/kw.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'kw)

2
collects/tests/racket/macrolib.rkt → collects/tests/racket/macrolib.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'macrolib)

4
collects/tests/racket/pconvert.rkt → collects/tests/racket/pconvert.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'pconvert)
@ -367,7 +367,7 @@
(test 'empty print-convert '())
(let ([fn (make-temporary-file "pconvert.rkt-test~a")])
(let ([fn (make-temporary-file "pconvert.rktl-test~a")])
(let ([in (open-input-file fn)])
(test `(open-input-file ,fn) print-convert in)
(close-input-port in))

2
collects/tests/racket/restart.rkt → collects/tests/racket/restart.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(require mzlib/restart)

2
collects/tests/racket/string-mzlib.rkt → collects/tests/racket/string-mzlib.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'mzlib-string)

2
collects/tests/racket/structlib.rkt → collects/tests/racket/structlib.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'structlib)

2
collects/tests/racket/threadlib.rkt → collects/tests/racket/threadlib.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'threadlib)

5
collects/tests/racket/ttt/uinc4.rktl Normal file
View File

@ -0,0 +1,5 @@
(define also-unused 'ok)
(include (build-path up "uinc.rktl"))

0
collects/tests/racket/uinc.rkt → collects/tests/racket/uinc.rktl
View File

0
collects/tests/racket/uinc2.rkt → collects/tests/racket/uinc2.rktl
View File

7
collects/tests/racket/uinc3.rktl Normal file
View File

@ -0,0 +1,7 @@
(define unused 'hello)
(include (build-path "ttt" "uinc4.rktl"))

2
collects/tests/racket/unit.rkt → collects/tests/racket/unit.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
(Section 'unit)
(require mzlib/unit200)

14
collects/tests/racket/unitsig.rkt → collects/tests/racket/unitsig.rktl
View File

@ -1,5 +1,5 @@
(load-relative "loadtest.rkt")
(load-relative "loadtest.rktl")
;; Hide keywords from scheme/unit.rkt:
(define import #f)
@ -178,7 +178,7 @@
()
(import)
(include "uinc.rkt")))
(include "uinc.rktl")))
(test 9 'include (invoke-unit/sig i1@))
@ -189,7 +189,7 @@
(import)
(+ 3 4)
(include "uinc3.rkt")))
(include "uinc3.rktl")))
(test 9 'include (invoke-unit/sig i1.5@))
@ -198,9 +198,9 @@
()
(import)
(include "uinc.rkt")
(include "uinc2.rkt")
(include "uinc.rkt")
(include "uinc.rktl")
(include "uinc2.rktl")
(include "uinc.rktl")
(+ x 2)))
(test 10 'include (invoke-unit/sig i2@))
@ -212,7 +212,7 @@
(unit/sig ()
(import)
(define x 5)
(include "binc.rkt")
(include "binc.rktl")
y)))
; Simple: