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

change #:module-info to #:language-info for consistency with module->language-info

Browse Source 
original commit: 7503f8c6e948a7e949cc4bb48e4fad71f877c90c
This commit is contained in:
Matthew Flatt 2010-04-21 18:50:16 -06:00
parent f71591ed45
commit 8cf31c8de6
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-scheme/module-info.ss → collects/typed-scheme/language-info.ss
View File

@ -1,10 +1,10 @@
#lang scheme/base
(require typed-scheme/typed-reader)
(provide module-info configure)
(provide get-info configure)
(define ((module-info arg) key default)
(define ((get-info arg) key default)
(case key
[(configure-runtime) `(#(typed-scheme/module-info configure ()))]
[(configure-runtime) `(#(typed-scheme/language-info configure ()))]
[else default]))
;; options currently always empty

6
collects/typed/scheme/base/lang/reader.ss
View File

@ -5,14 +5,14 @@ typed/scheme/base
#:read r:read
#:read-syntax r:read-syntax
#:info make-info
#:module-info make-module-info
#:language-info make-language-info
(define (make-info key default use-default)
(case key
[else (use-default key default)]))
(define make-module-info
`#(typed-scheme/module-info module-info ()))
(define make-language-info
`#(typed-scheme/language-info get-info ()))
(require (prefix-in r: typed-scheme/typed-reader))

6
collects/typed/scheme/lang/reader.ss
View File

@ -5,14 +5,14 @@ typed/scheme
#:read r:read
#:read-syntax r:read-syntax
#:info make-info
#:module-info make-module-info
#:language-info make-language-info
(define (make-info key default use-default)
(case key
[else (use-default key default)]))
(define make-module-info
`#(typed-scheme/module-info module-info ()))
(define make-language-info
`#(typed-scheme/language-info get-info ()))
(require (prefix-in r: typed-scheme/typed-reader))