home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / proglc / xscheme.lzh / XSCHEME.INI < prev   
Encoding:
Text File  |  1988-08-12  |  469 b   |  19 lines
  1. ; xscheme.ini - initialization code for XScheme
  2.  
  3. (load "macros.s")
  4.  
  5. (define (autoload-from-file file syms #!optional env)
  6.   (map (lambda (sym) (put sym '%autoload file)) syms)
  7.   '())
  8.   
  9. (define (*unbound-handler* sym cont)
  10.   (let ((file (get sym '%autoload)))
  11.     (if file (load file))
  12.     (if (not (bound? sym))
  13.       (error "unbound variable" sym))
  14.     (cont '())))
  15.  
  16. (define head car)
  17. (define (tail x) (force (cdr x)))
  18. (define empty-stream? null?)
  19.