[Jscheme-user] autoload

[Ken A. <kan...@bb...>]

Here's a simple autoload procedure like EMACS has.

(define (autoload name file)
  ;; Usage: (autoload 'trace "elf/trace.scm")
  ;; The first time (trace) is called, "elf/trace.scm will be loaded
  ;; and the real trace called instead.
  (.setGlobalValue
   name
   (lambda args
     (display {Loading [file]\n})
     (load file)
     (apply (.getGlobalValue name) args))))

(autoload 'trace "elf/trace.scm")
(autoload 'future "elf/future.scm")