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

added purpose statement to expand-teaching-program

Browse Source
This commit is contained in:
John Clements 2011-07-09 16:17:15 -07:00
parent 592f28382b
commit 9cdeda1e04
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/lang/run-teaching-program.rkt
View File

@ -16,6 +16,10 @@
(symbol? boolean?) (symbol? boolean?)
any)]) any)])
;; this function expands a port providing a program and a bunch of
;; arguments describing the user environment, and returns a thunk
;; that returns the top-level expressions that make up the expanded
;; program, one on each call.
(define (expand-teaching-program port reader language-module teachpacks rep [module-name '#%htdp] [enable-testing? #t]) (define (expand-teaching-program port reader language-module teachpacks rep [module-name '#%htdp] [enable-testing? #t])
(let ([state 'init] (let ([state 'init]
;; state : 'init => 'require => 'done-or-exn ;; state : 'init => 'require => 'done-or-exn