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

completed Matthias's aborted commit

Browse Source 
svn: r12999
This commit is contained in:
Eli Barzilay 2009-01-04 13:59:00 +00:00
parent a0a386e71f
commit e371bd8f4a
4 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/teachpack/2htdp/scribblings/2htdp.scrbl Normal file
View File

@ -0,0 +1,10 @@
#lang scribble/doc
@(require scribble/manual
(for-label scheme))
@title[#:style '(toc) #:tag "2htdp"]{HtDP/2e Teachpacks}
@local-table-of-contents[]
@include-section["universe.scrbl"]

6
collects/teachpack/2htdp/scribblings/universe.scrbl
View File

@ -1,9 +1,9 @@
#lang scribble/doc #lang scribble/doc
@(require scribble/manual "shared.ss" @(require scribble/manual "shared.ss"
(for-label scheme ; lang/htdp-beginner (for-label scheme
(only-in lang/htdp-beginner check-expect) (only-in lang/htdp-beginner check-expect)
"../universe.ss" teachpack/2htdp/universe
teachpack/htdp/image)) teachpack/htdp/image))
@(require scribble/struct) @(require scribble/struct)
@ -47,7 +47,7 @@ The purpose of this documentation is to give experienced Schemers and HtDP
have a series of projects available as a small booklet on have a series of projects available as a small booklet on
@link["http://world.cs.brown.edu/"]{How to Design Worlds}. @link["http://world.cs.brown.edu/"]{How to Design Worlds}.
@declare-exporting["../universe.ss" #:use-sources (teachpack/htdp/image)] @declare-exporting[teachpack/2htdp/universe #:use-sources (teachpack/htdp/image)]
@; ----------------------------------------------------------------------------- @; -----------------------------------------------------------------------------

3
collects/teachpack/teachpack.scrbl
View File

@ -23,7 +23,8 @@ This chapter covers the teachpacks for @italic{How to Design Programs}
@table-of-contents[] @table-of-contents[]
@include-section["htdp/scribblings/htdp.scrbl"] @include-section["htdp/scribblings/htdp.scrbl"]
@include-section["htdc/scribblings/htdc.scrbl"] @include-section["htdc/scribblings/htdc.scrbl"]
@include-section["2htdp/scribblings/2htdp.scrbl"]

9
collects/tests/drscheme/teachpack.ss
View File

@ -213,13 +213,16 @@
(printf "FAILED built in teachpack test: ~a~n" (path->string teachpack)) (printf "FAILED built in teachpack test: ~a~n" (path->string teachpack))
(printf " got: ~s~n expected: ~s~n" got expected)))))))] (printf " got: ~s~n expected: ~s~n" got expected)))))))]
[test-teachpacks [test-teachpacks
(lambda (dir) (lambda (paths)
(for-each (lambda (dir)
(for-each (test-teachpack dir) (for-each (test-teachpack dir)
(directory-list dir)))] (directory-list dir)))
paths))]
[teachpack-dir (normalize-path (collection-path "teachpack"))]) [teachpack-dir (normalize-path (collection-path "teachpack"))])
(set-language-level! '("How to Design Programs" "Advanced Student")) (set-language-level! '("How to Design Programs" "Advanced Student"))
(do-execute drs-frame) (do-execute drs-frame)
(test-teachpacks (build-path teachpack-dir "htdp")))) (test-teachpacks (list (build-path teachpack-dir "2htdp")
(build-path teachpack-dir "htdp")))))
(define (find-leftmost-choice frame) (define (find-leftmost-choice frame)
(let loop ([p frame]) (let loop ([p frame])