home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / schemos2.zip / lib / optiondb.scm < prev    next >
Text File  |  1995-03-13  |  810b  |  26 lines
  1. (define (guarded-system-loader package-name place)
  2.   (let ((directory
  3.      (let ((directory (directory-pathname (current-load-pathname))))
  4.        (pathname-new-directory directory
  5.                    (append (pathname-directory directory)
  6.                        (list 'UP place))))))
  7.     (lambda ()
  8.       (if (not (name->package package-name))
  9.       (with-working-directory-pathname directory
  10.         (lambda ()
  11.           (load "make")))))))
  12.  
  13. (define-load-option 'SF
  14.   (guarded-system-loader '(scode-optimizer) "sf"))
  15.  
  16. (define-load-option 'CREF
  17.   (guarded-system-loader '(cross-reference) "cref"))
  18.  
  19. (define-load-option 'EDWIN
  20.   (guarded-system-loader '(edwin) "edwin"))
  21.  
  22. (define-load-option 'COMPILER
  23.   (lambda () (load-option 'SF))
  24.   (guarded-system-loader '(compiler) "compiler"))
  25.  
  26. (further-load-options standard-load-options)