From: Michael R. Blair <edu/mit/csail/zurich/ziggy>
Date: Mon, 28 Mar 1994 06:14:42 +0000 (+0000)
Subject: add wabbit/headhunt load option
X-Git-Tag: 20090517-FFI~7203
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0d5a1bd81fdbf779ded04b746dddc270136379d5;p=mit-scheme.git

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 b5eff099f..1608cfd0f 100644
--- 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))))))))