0
@@ -5,6 +5,11 @@ task :default do
0
   sh "mzc -z -d lib/ src/*.scm"
0
 end
0
 
0
+task :console do
0
+  puts "Erlenmeyer Console - All Modules Loaded\n"
0
+  exec "mzscheme -m -S ./lib/ -t lib/*.zo"
0
+end
0
+
0
 task :clean do
0
   sh "git clean -xf"
0
 end
0
\ No newline at end of file

0
@@ -1,7 +1,17 @@
0
 (module erlenmeyer mzscheme
0
   (require (lib "foreign.ss")) (unsafe!)
0
-  (provide fd->input-port
0
+  (provide bind-erlang-ports
0
+           fd->input-port
0
            fd->output-port)
0
+
0
+;  We'll start with the standard ports
0
+  (define erlang-input-port (current-input-port))
0
+  (define erlang-output-port (current-output-port))
0
+ 
0
+ (define (bind-erlang-ports)
0
+   (set! erlang-input-port  (fd->input-port 3 'erlang-in))
0
+   (set! erlang-output-port (fd->output-port 4 'erlang-out)))
0
+  
0
 ; The all-important fd->input port code thanks to Matthew Flatt
0
   (define (fd->input-port fd name)
0
     (scheme_make_fd_input_port fd name 0 0))