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

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/lang/htdp-advanced.rkt
View File

@ -1,10 +1,10 @@
(module htdp-advanced scheme/base
(require "private/teach.ss"
"private/teach-module-begin.ss"
mzlib/etc
mzlib/list
mzlib/pretty
syntax/docprovide
(require "private/teach.rkt"
"private/teach-module-begin.rkt"
mzlib/etc
mzlib/list
mzlib/pretty
syntax/docprovide
scheme/promise
test-engine/scheme-tests
"posn.rkt")

4
collects/lang/htdp-beginner-abbr.rkt
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

14
collects/lang/htdp-beginner.rkt
View File

@ -4,15 +4,15 @@
(module htdp-beginner scheme/base
(require mzlib/etc
mzlib/list
syntax/docprovide
mzlib/list
syntax/docprovide
"private/rewrite-error-message.rkt"
(for-syntax "private/rewrite-error-message.rkt")
(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:
@ -54,9 +54,9 @@
; Property
; 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)
(syntax-case stx ()

12
collects/lang/htdp-intermediate.rkt
View File

@ -1,11 +1,11 @@
(module htdp-intermediate scheme/base
(require "private/teach.ss"
"private/teachprims.ss"
"private/teach-module-begin.ss"
mzlib/etc
mzlib/list
syntax/docprovide
(require "private/teach.rkt"
"private/teachprims.rkt"
"private/teach-module-begin.rkt"
mzlib/etc
mzlib/list
syntax/docprovide
test-engine/scheme-tests
(for-syntax scheme/base))

2
collects/lang/htdp-langs.rkt
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"

6
collects/lang/private/beginner-funs.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

5
collects/lang/private/rewrite-error-message.rkt
View File

@ -1,8 +1,8 @@
#lang scheme/base
(require mzlib/etc
(require mzlib/etc
mzlib/list
(for-syntax "firstorder.ss"
(for-syntax "firstorder.rkt"
scheme/base))
(provide rewrite-contract-error-message
@ -21,7 +21,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))

20
collects/lang/private/teach.rkt
View File

@ -56,18 +56,18 @@
(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
syntax/struct
syntax/context
mzlib/include
scheme/list
(rename racket/base racket:define-struct define-struct)
(only racket/base syntax->datum datum->syntax)
syntax/kerncase
syntax/stx
syntax/struct
syntax/context
mzlib/include
scheme/list
(rename racket/base racket:define-struct define-struct)
(only racket/base syntax->datum datum->syntax)
(rename racket/base kw-app #%app)
racket/struct-info
stepper/private/shared

10
collects/lang/private/teachhelp.rkt
View File

@ -1,13 +1,13 @@
(module teachhelp mzscheme
(require "firstorder.ss"
(require "firstorder.rkt"
"rewrite-error-message.rkt"
stepper/private/shared)
(require-for-syntax stepper/private/shared)
(provide make-undefined-check
make-first-order-function)
(provide make-undefined-check
make-first-order-function)
(define (make-undefined-check check-proc tmp-id)
(let ([set!-stx (datum->syntax-object check-proc 'set!)])
(make-set!-transformer

3
collects/scribblings/htdp-langs/advanced.scrbl
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 '()]

3
collects/scribblings/htdp-langs/beginner-abbr.scrbl
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 '()]

3
collects/scribblings/htdp-langs/intermediate-lambda.scrbl
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 '()]

2
collects/scribblings/htdp-langs/prim-ops.rkt
View File

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

6
collects/scribblings/htdp-langs/std-grammar.rkt
View File

@ -1,6 +1,6 @@
#reader scribble/reader
#lang racket/base
(require "common.ss"
(require "common.rkt"
scribble/decode)
(provide prim-nonterms
@ -18,8 +18,8 @@
form ...
[test-case @#,racket[(check-expect expression expression)]
@#,racket[(check-within expression expression expression)]
@#,racket[(check-member-of expression expression (... ...))]
@#,racket[(check-range expression expression expression)]
@#,racket[(check-member-of expression expression (... ...))]
@#,racket[(check-range expression expression expression)]
@#,racket[(check-error expression expression)]
@#,racket[(check-error expression)]]
(...