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 / compile.scm < prev    next >
Text File  |  1999-01-02  |  1KB  |  33 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; $Id: compile.scm,v 1.3 1999/01/02 06:19:10 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 'CREF)
  22.  
  23. (with-working-directory-pathname (directory-pathname (current-load-pathname))
  24.   (lambda ()
  25.     (compile-file "class")
  26.     (compile-file "instance" '() syntax-table/system-internal)
  27.     (compile-file "macros")
  28.     (compile-file "method")
  29.     (compile-file "printer")
  30.     (compile-file "slot")
  31.     (cref/generate-constructors "sos")
  32.     (sf "sos.con")
  33.     (sf "sos.ldr")))