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

Fix language info when running 'racket -I typed/racket'.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2011-09-01 19:03:52 -04:00
parent 4c9c02905d
commit d594e6ee49
7 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/typed-scheme/language-info.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
(require typed-scheme/typed-reader) (require typed-scheme/typed-reader)
(provide get-info configure) (provide get-info configure)
@ -9,10 +9,9 @@
;; options currently always empty ;; options currently always empty
(define (configure options) (define (configure options)
(namespace-require 'scheme/base) (namespace-require 'racket/base)
(eval '(begin (eval '(begin
(require (for-syntax typed-scheme/utils/tc-utils scheme/base)) (require (for-syntax typed-scheme/utils/tc-utils racket/base))
(begin-for-syntax (set-box! typed-context? #t))) (begin-for-syntax (set-box! typed-context? #t)))
(current-namespace)) (current-namespace))
(current-readtable (readtable))) (current-readtable (readtable)))

3
collects/typed-scheme/main.rkt
View File

@ -1,5 +1,4 @@
#lang racket/base #lang typed-scheme/minimal
(require typed/scheme/base) (require typed/scheme/base)
(provide (all-from-out typed/scheme/base)) (provide (all-from-out typed/scheme/base))

13
collects/typed-scheme/minimal/lang/reader.rkt Normal file
View File

@ -0,0 +1,13 @@
#lang s-exp syntax/module-reader
typed-scheme/minimal
#:language-info make-language-info
#:info make-info
(define (make-info key default use-default)
(case key
[else (use-default key default)]))
(define make-language-info
`#(typed-scheme/language-info get-info ()))

2
collects/typed/racket.rkt
View File

@ -1,4 +1,4 @@
#lang racket/base #lang typed-scheme/minimal
(require typed/racket/base racket/require (subtract-in racket typed/racket/base racket/contract) (require typed/racket/base racket/require (subtract-in racket typed/racket/base racket/contract)
(for-syntax racket/base)) (for-syntax racket/base))

2
collects/typed/racket/base.rkt
View File

@ -1,4 +1,4 @@
#lang s-exp typed-scheme/minimal #lang typed-scheme/minimal
(providing (libs (except racket/base #%module-begin #%top-interaction with-handlers lambda #%app define-struct for for*)) (providing (libs (except racket/base #%module-begin #%top-interaction with-handlers lambda #%app define-struct for for*))
(basics #%module-begin #%top-interaction lambda #%app)) (basics #%module-begin #%top-interaction lambda #%app))

2
collects/typed/scheme.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang typed-scheme/minimal
(require typed/scheme/base scheme/require (subtract-in scheme typed/scheme/base scheme/contract) (require typed/scheme/base scheme/require (subtract-in scheme typed/scheme/base scheme/contract)
(for-syntax scheme/base)) (for-syntax scheme/base))

2
collects/typed/scheme/base.rkt
View File

@ -1,4 +1,4 @@
#lang s-exp typed-scheme/minimal #lang typed-scheme/minimal
(providing (libs (except scheme/base #%module-begin #%top-interaction with-handlers lambda #%app define-struct for for*)) (providing (libs (except scheme/base #%module-begin #%top-interaction with-handlers lambda #%app define-struct for for*))
(basics #%module-begin #%top-interaction lambda #%app)) (basics #%module-begin #%top-interaction lambda #%app))