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/load-amb.scm | |
| parent | ed1f3d7cdd794c3227648fca97fa29b027deb7fe (diff) | |
| download | 6.945-1bb045d3580d2b21794d109461fbe064ae38f3b8.tar.gz 6.945-1bb045d3580d2b21794d109461fbe064ae38f3b8.zip | |
as submitted
Diffstat (limited to 'ps04_combinators_amb/load-amb.scm')
| -rw-r--r-- | ps04_combinators_amb/load-amb.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/ps04_combinators_amb/load-amb.scm b/ps04_combinators_amb/load-amb.scm index 6f3d1a8..a2ec775 100644 --- a/ps04_combinators_amb/load-amb.scm +++ b/ps04_combinators_amb/load-amb.scm @@ -7,8 +7,11 @@ (define generic-evaluation-environment (extend-top-level-environment user-initial-environment)) +(define (eval-in-amb exp) + (eval exp generic-evaluation-environment)) + (load "analyze-amb" generic-evaluation-environment) +(load "bnewbold_ps04_work" generic-evaluation-environment) (load "repl-amb" generic-evaluation-environment) - -(ge generic-evaluation-environment)
\ No newline at end of file +(ge generic-evaluation-environment) |