Home     |     .Net Programming    |     cSharp Home    |     Sql Server Home    |     Javascript / Client Side Development     |     Ajax Programming

Ruby on Rails Development     |     Perl Programming     |     C Programming Language     |     C++ Programming     |     IT Jobs

Python Programming Language     |     Laptop Suggestions?    |     TCL Scripting     |     Fortran Programming     |     Scheme Programming Language


 
 
Cervo Technologies
The Right Source to Outsource

MS Dynamics CRM 3.0

Scheme Programming Language

How does load work?


Is this a proper implementation of load?

(define (my-load file-name)
  (let ((p (open-input-file file-name)))
    (let loop ((obj (read p)))
      (if (eof-object? obj)
          (close-input-port p)
          (begin (eval obj (interaction-environment))
                 (loop (read p)))))))

Thanks,

Phil

Add to del.icio.us | Digg this | Stumble it | Powered by Megasolutions Inc