home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / sos / load.scm < prev    next >
Text File  |  1999-01-03  |  2KB  |  38 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; $Id: load.scm,v 1.6 1999/01/03 05:24:12 cph Exp $
  4. ;;;
  5. ;;; Copyright (c) 1995-1999 Massachusetts Institute of Technology
  6. ;;;
  7. ;;; This program is free software; you can redistribute it and/or
  8. ;;; modify it under the terms of the GNU General Public License as
  9. ;;; published by the Free Software Foundation; either version 2 of the
  10. ;;; License, or (at your option) any later version.
  11. ;;;
  12. ;;; This program is distributed in the hope that it will be useful,
  13. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15. ;;; General Public License for more details.
  16. ;;;
  17. ;;; You should have received a copy of the GNU General Public License
  18. ;;; along with this program; if not, write to the Free Software
  19. ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21. (load-option 'HASH-TABLE)
  22. (with-working-directory-pathname (directory-pathname (current-load-pathname))
  23.   (lambda ()
  24.     (package/system-loader "sos" '() 'QUERY)))
  25. (let ((install
  26.        (let ((environment (package/environment (find-package '(SOS MACROS)))))
  27.      (lambda (mname tname)
  28.        (syntax-table/define system-global-syntax-table
  29.                 mname
  30.                 (lexical-reference environment tname))))))
  31.   (install 'DEFINE-CLASS 'TRANSFORM:DEFINE-CLASS)
  32.   (install 'DEFINE-GENERIC 'TRANSFORM:DEFINE-GENERIC)
  33.   (install 'DEFINE-METHOD 'TRANSFORM:DEFINE-METHOD)
  34.   (install 'DEFINE-COMPUTED-METHOD 'TRANSFORM:DEFINE-COMPUTED-METHOD)
  35.   (install 'DEFINE-COMPUTED-EMP 'TRANSFORM:DEFINE-COMPUTED-EMP)
  36.   ;;(install 'METHOD 'TRANSFORM:METHOD)
  37.   )
  38. (add-identification! "SOS" 1 6)