(define load-from-lib-c  ; TYPE: (-> ((-> (string) void))
                         ;           (-> (file-name) void))
  (let ((libdir "/home/cs227/lib/"))
    (lambda (informer)
      (lambda (fn)
	; EFFECT: load the file named fn found in libdir,
	;         calling informer to tell anyone who cares about it.
	(let ((fullname (string-append libdir fn)))
	  (informer (string-append "loading " fullname " ..."))
	  (load fullname))))))

(define load-from-lib
  (load-from-lib-c (lambda (s) (display s) (newline))))

(define load-quietly-from-lib
  (load-from-lib-c (lambda (s) 0)))