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

Use racket instead of scheme. Fixes dependency issues.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2014-12-15 02:28:54 -05:00
parent 61e3db6df5
commit 3bb896d6cb
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-test-core/tests/racket/lang/reader.rkt
View File

@ -1,16 +1,16 @@
#lang scheme/base #lang racket/base
(require syntax/module-reader) (require syntax/module-reader)
(provide (rename-out [my-read read] (provide (rename-out [my-read read]
[my-read-syntax read-syntax])) [my-read-syntax read-syntax]))
(define (my-read port modpath line col pos) (define (my-read port modpath line col pos)
(wrap-read-all 'scheme port read modpath (object-name port) line col pos)) (wrap-read-all 'racket port read modpath (object-name port) line col pos))
(define (my-read-syntax src port modpath line col pos) (define (my-read-syntax src port modpath line col pos)
(syntax-property (syntax-property
(datum->syntax #f (datum->syntax #f
(wrap-read-all 'scheme port (lambda (in) (read-syntax src in)) modpath src line col pos) (wrap-read-all 'racket port (lambda (in) (read-syntax src in)) modpath src line col pos)
#f) #f)
'module-language 'module-language
'#(tests/racket/lang/getinfo get-info closure-data))) '#(tests/racket/lang/getinfo get-info closure-data)))

2
pkgs/racket-test/info.rkt
View File

@ -32,6 +32,8 @@
"base" "base"
"data-lib")) "data-lib"))
(define implies '("racket-test-core"))
(define pkg-desc "Base Racket test suites") (define pkg-desc "Base Racket test suites")
(define pkg-authors '(eli jay matthias mflatt robby ryanc samth)) (define pkg-authors '(eli jay matthias mflatt robby ryanc samth))