Redo some of the ".ss" -> ".rkt" conversion that were undone in the last push.
This commit is contained in:
parent
9706920055
commit
0ee3aef9cb
|
@ -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")
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 ()
|
||||
|
|
|
@ -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))
|
||||
|
||||
|
|
|
@ -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"
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 '()]
|
||||
|
|
|
@ -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 '()]
|
||||
|
|
|
@ -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 '()]
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
#reader scribble/reader
|
||||
#lang racket/base
|
||||
(require "common.ss"
|
||||
(require "common.rkt"
|
||||
scribble/decode
|
||||
scribble/struct
|
||||
scribble/racket
|
||||
|
|
|
@ -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)]]
|
||||
(...
|
||||
|
|
Loading…
Reference in New Issue
Block a user