From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 23 Dec 2000 06:22:37 +0000 (+0000)
Subject: Add WIN32 option.  Alphabetize options.
X-Git-Tag: 20090517-FFI~3034
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5ce6a4c39a826be2d150e38ebd2aad6a2167a4ef;p=mit-scheme.git

Add WIN32 option.  Alphabetize options.
---

diff --git a/v7/src/etc/optiondb.scm b/v7/src/etc/optiondb.scm
index c3e0122a8..bb53541b6 100644
--- a/v7/src/etc/optiondb.scm
+++ b/v7/src/etc/optiondb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: optiondb.scm,v 1.4 2000/12/23 06:01:15 cph Exp $
+$Id: optiondb.scm,v 1.5 2000/12/23 06:22:37 cph Exp $
 
 Copyright (c) 2000 Massachusetts Institute of Technology
 
@@ -57,12 +57,6 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 		      (dir-loop (cdr dirs))))
 		(error "Unable to find package directory:" place)))))))
 
-(define-load-option 'SF
-  (guarded-system-loader '(scode-optimizer) "sf"))
-
-(define-load-option 'CREF
-  (guarded-system-loader '(cross-reference) "cref"))
-
 (define-load-option 'EDWIN
   (guarded-system-loader '(edwin) "edwin"))
 
@@ -70,14 +64,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (lambda () (load-option 'SF))
   (guarded-system-loader '(compiler) "compiler"))
 
-(define-load-option 'STUDENT
-  (guarded-system-loader '(student) "6001"))
-
-(define-load-option 'SOS
-  (guarded-system-loader '(runtime object-system) "sos"))
-
-(define-load-option 'RCS
-  (guarded-system-loader '(rcs) "rcs"))
+(define-load-option 'CREF
+  (guarded-system-loader '(cross-reference) "cref"))
 
 (define-load-option 'IMAIL
   (guarded-system-loader '(edwin imail) "imail"))
@@ -85,7 +73,22 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 (define-load-option 'PC-SAMPLE
   (guarded-system-loader '(pc-sample) "pcsample"))
 
+(define-load-option 'RCS
+  (guarded-system-loader '(rcs) "rcs"))
+
+(define-load-option 'SF
+  (guarded-system-loader '(scode-optimizer) "sf"))
+
+(define-load-option 'SOS
+  (guarded-system-loader '(runtime object-system) "sos"))
+
+(define-load-option 'STUDENT
+  (guarded-system-loader '(student) "6001"))
+
 (define-load-option 'SWAT
   (guarded-system-loader '(swat) "swat"))
 
+(define-load-option 'WIN32
+  (guarded-system-loader '(win32) "win32"))
+
 (further-load-options standard-load-options)
\ No newline at end of file