home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 213a.lha / Scheme / Tutorial / XSCHEME.INI < prev    next >
Text File  |  1996-02-14  |  469b  |  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.