Move typed-scheme/lang/main.ss to typed-scheme/main.ss.

Fix documentation to match.

svn: r8886
This commit is contained in:
Sam Tobin-Hochstadt 2008-03-04 23:18:16 +00:00
parent f7d6b01d26
commit 621cff1d9a
4 changed files with 5 additions and 5 deletions

View File

@ -3,10 +3,10 @@
(only-in syntax/module-reader wrap-read-all)) (only-in syntax/module-reader wrap-read-all))
(define (*read in) (define (*read in)
(wrap-read-all 'typed-scheme/lang/main in r:read)) (wrap-read-all 'typed-scheme in r:read))
(define (*read-syntax src in) (define (*read-syntax src in)
(wrap-read-all 'typed-scheme/lang/main (wrap-read-all 'typed-scheme
in in
(lambda (in) (lambda (in)
(r:read-syntax src in)))) (r:read-syntax src in))))

View File

@ -5,7 +5,7 @@
(require (for-syntax scheme/base)) (require (for-syntax scheme/base))
(define-for-syntax ts-mod "../typed-scheme.ss") (define-for-syntax ts-mod "typed-scheme.ss")
(define-syntax (providing stx) (define-syntax (providing stx)
(syntax-case stx (libs from basics except) (syntax-case stx (libs from basics except)

View File

@ -1,7 +1,7 @@
#lang scribble/doc #lang scribble/doc
@begin[(require scribble/manual) @begin[(require scribble/manual)
(require (for-label typed-scheme/lang/main))] (require (for-label typed-scheme))]
@begin[ @begin[
(define (item* header . args) (apply item @bold[header]{: } args)) (define (item* header . args) (apply item @bold[header]{: } args))
@ -10,7 +10,7 @@
@title[#:tag "top"]{@bold{Typed Scheme}: Scheme with Static Types} @title[#:tag "top"]{@bold{Typed Scheme}: Scheme with Static Types}
@(defmodulelang typed-scheme #:use-sources (typed-scheme/lang/main)) @(defmodulelang typed-scheme)
Typed Scheme is a Scheme-like language, with a type system that Typed Scheme is a Scheme-like language, with a type system that
supports common Scheme programming idioms. Explicit type declarations supports common Scheme programming idioms. Explicit type declarations