completed Matthias's aborted commit

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

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"]

View File

@ -1,9 +1,9 @@
#lang scribble/doc
@(require scribble/manual "shared.ss"
(for-label scheme ; lang/htdp-beginner
(for-label scheme
(only-in lang/htdp-beginner check-expect)
"../universe.ss"
teachpack/2htdp/universe
teachpack/htdp/image))
@(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
@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)]
@; -----------------------------------------------------------------------------

View File

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

View File

@ -213,13 +213,16 @@
(printf "FAILED built in teachpack test: ~a~n" (path->string teachpack))
(printf " got: ~s~n expected: ~s~n" got expected)))))))]
[test-teachpacks
(lambda (dir)
(for-each (test-teachpack dir)
(directory-list dir)))]
(lambda (paths)
(for-each (lambda (dir)
(for-each (test-teachpack dir)
(directory-list dir)))
paths))]
[teachpack-dir (normalize-path (collection-path "teachpack"))])
(set-language-level! '("How to Design Programs" "Advanced Student"))
(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)
(let loop ([p frame])