add wabbit/headhunt load option

rename pcsample option loader to "load" (from "make").

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index b5eff099fea3e810bd3f491e761ef15db95d7b17..1608cfd0ff8c97a4f8ccc245a3aed23993d258e6 100644 (file)
--- a/v7/src/runtime/option.scm
+++ b/v7/src/runtime/option.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: option.scm,v 14.27 1993/12/08 17:36:14 jmiller Exp $
+$Id: option.scm,v 14.28 1994/03/28 06:14:42 ziggy Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -86,10 +86,12 @@ MIT in each case. |#
     (DOSPROCESS (() #F "dosproc"))
     (FORMAT ((RUNTIME FORMAT) (INITIALIZE-PACKAGE!) "format"))
     (HASH-TABLE ((RUNTIME HASH-TABLE) (INITIALIZE-PACKAGE!) "hashtb"))
+    (HEADHUNT (() #F "../wabbit/load"))        ; wabbit = headhunt [ziggy]
     (KRYPT ((RUNTIME KRYPT) #F "krypt"))
-    (PC-SAMPLE (() #F "../pcsample/make"))
+    (PC-SAMPLE (() #F "../pcsample/load"))
     (RB-TREE ((runtime rb-tree) #F "rbtree"))
     (SWAT (() #F "../swat/load"))
+    (WABBIT (() #F "../wabbit/load"))
     (WT-TREE ((runtime wt-tree) #F "wttree"))
     (SUBPROCESS ((RUNTIME SUBPROCESS) (INITIALIZE-PACKAGE!) "process"))))
 
@@ -107,4 +109,4 @@ MIT in each case. |#
           (fluid-let ((load/suppress-loading-message? true))
             (load (merge-pathnames
                    (library-directory-pathname "shared")
-                   shared-library))))))))
\ No newline at end of file
+                   shared-library))))))))