diff options
| author | bnewbold <bnewbold@eta.mit.edu> | 2009-03-08 23:04:16 -0400 |
|---|---|---|
| committer | bnewbold <bnewbold@eta.mit.edu> | 2009-03-08 23:04:16 -0400 |
| commit | 1bb045d3580d2b21794d109461fbe064ae38f3b8 (patch) | |
| tree | d8ba7627b2db098d586d7f19929f48c0dee93330 /ps04_combinators_amb/repl-amb.scm | |
| parent | ed1f3d7cdd794c3227648fca97fa29b027deb7fe (diff) | |
| download | 6.945-1bb045d3580d2b21794d109461fbe064ae38f3b8.tar.gz 6.945-1bb045d3580d2b21794d109461fbe064ae38f3b8.zip | |
as submitted
Diffstat (limited to 'ps04_combinators_amb/repl-amb.scm')
| -rw-r--r-- | ps04_combinators_amb/repl-amb.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ps04_combinators_amb/repl-amb.scm b/ps04_combinators_amb/repl-amb.scm index c7b6ccb..90311b0 100644 --- a/ps04_combinators_amb/repl-amb.scm +++ b/ps04_combinators_amb/repl-amb.scm @@ -66,6 +66,7 @@ input (lambda (val next-alternative) (display output-prompt) + (show-amb-count) (pp val) (internal-loop next-alternative)) (lambda () @@ -78,3 +79,8 @@ (driver-loop)))) (define go driver-loop) + + + + + |