Redo some of the ".ss" -> ".rkt" conversion that were undone in the last push.

This commit is contained in:
Eli Barzilay 2011-07-06 06:21:49 -04:00
parent 9706920055
commit 0ee3aef9cb
14 changed files with 49 additions and 53 deletions

View File

@ -1,6 +1,6 @@
(module htdp-advanced scheme/base
(require "private/teach.ss"
"private/teach-module-begin.ss"
(require "private/teach.rkt"
"private/teach-module-begin.rkt"
mzlib/etc
mzlib/list
mzlib/pretty

View File

@ -6,8 +6,8 @@
test-engine/scheme-tests)
;; Implements the forms:
(require "private/teach.ss"
"private/teach-module-begin.ss")
(require "private/teach.rkt"
"private/teach-module-begin.rkt")
;; syntax:
(provide (rename-out

View File

@ -11,8 +11,8 @@
(for-syntax scheme/base))
;; Implements the forms:
(require "private/teach.ss"
"private/teach-module-begin.ss"
(require "private/teach.rkt"
"private/teach-module-begin.rkt"
test-engine/scheme-tests)
;; syntax:
@ -55,7 +55,7 @@
; check-property for-all ==> expect expect-within expect-member-of expect-range
)
(require (for-syntax "private/firstorder.ss"))
(require (for-syntax "private/firstorder.rkt"))
(define-syntax (in-rator-position-only stx)

View File

@ -1,8 +1,8 @@
(module htdp-intermediate scheme/base
(require "private/teach.ss"
"private/teachprims.ss"
"private/teach-module-begin.ss"
(require "private/teach.rkt"
"private/teachprims.rkt"
"private/teach-module-begin.rkt"
mzlib/etc
mzlib/list
syntax/docprovide

View File

@ -23,7 +23,7 @@
;; this module is shared between the drscheme's namespace (so loaded here)
;; and the user's namespace in the teaching languages
"private/set-result.ss"
"private/set-result.rkt"
"private/rewrite-error-message.rkt"
"private/continuation-mark-key.rkt"

View File

@ -2,9 +2,9 @@
(require mzlib/etc mzlib/list mzlib/math syntax/docprovide)
;; Implements the procedures:
(require "teachprims.ss"
"../posn.ss"
"../imageeq.ss")
(require "teachprims.rkt"
"../posn.rkt"
"../imageeq.rkt")
;; procedures with documentation:
(provide-and-document

View File

@ -2,7 +2,7 @@
(require mzlib/etc
mzlib/list
(for-syntax "firstorder.ss"
(for-syntax "firstorder.rkt"
scheme/base))
(provide rewrite-contract-error-message
@ -22,7 +22,6 @@
(define (exn-needs-rewriting? exn)
(exn:fail:contract? exn))
(define (ensure-number n-or-str)
(if (string? n-or-str) (string->number n-or-str) n-or-str))

View File

@ -56,9 +56,9 @@
(require "rewrite-error-message.rkt")
(require-for-syntax "teachhelp.ss"
(require-for-syntax "teachhelp.rkt"
"rewrite-error-message.rkt"
"teach-shared.ss"
"teach-shared.rkt"
"rewrite-error-message.rkt"
syntax/kerncase
syntax/stx

View File

@ -1,5 +1,5 @@
(module teachhelp mzscheme
(require "firstorder.ss"
(require "firstorder.rkt"
"rewrite-error-message.rkt"
stepper/private/shared)

View File

@ -317,5 +317,4 @@ Like @racket[when], but the @racket[body-expression] is evaluated when the
@section[#:tag "advanced-pre-defined"]{Pre-Defined Functions}
@prim-op-defns['(lib "htdp-advanced.ss" "lang") #'here '()]
@prim-op-defns['(lib "htdp-advanced.rkt" "lang") #'here '()]

View File

@ -136,5 +136,4 @@ also be written with @racket[unquote-splicing].}
@section[#:tag "beginner-abbr-pre-defined"]{Pre-defined Functions}
@prim-op-defns['(lib "htdp-beginner-abbr.ss" "lang") #'here '()]
@prim-op-defns['(lib "htdp-beginner-abbr.rkt" "lang") #'here '()]

View File

@ -113,5 +113,4 @@ the function.}
@section[#:tag "intm-w-lambda-pre-defined"]{Pre-defined Functions}
@prim-op-defns['(lib "htdp-intermediate-lambda.ss" "lang") #'here '()]
@prim-op-defns['(lib "htdp-intermediate-lambda.rkt" "lang") #'here '()]

View File

@ -1,6 +1,6 @@
#reader scribble/reader
#lang racket/base
(require "common.ss"
(require "common.rkt"
scribble/decode
scribble/struct
scribble/racket

View File

@ -1,6 +1,6 @@
#reader scribble/reader
#lang racket/base
(require "common.ss"
(require "common.rkt"
scribble/decode)
(provide prim-nonterms