From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 9 May 1987 23:23:51 +0000 (+0000)
Subject: Implement new method for mapping pathnames to values.  Reimplement
X-Git-Tag: 20090517-FFI~13525
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=20b5c3dd6945fd0bbfe2c4a5a684e164bbaf149d;p=mit-scheme.git

Implement new method for mapping pathnames to values.  Reimplement
`sfu?' flag to match documentation for existing optimizer.
---

diff --git a/v7/src/sf/make.scm b/v7/src/sf/make.scm
index 7c752e419..1340447f6 100644
--- a/v7/src/sf/make.scm
+++ b/v7/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 3.7 1987/05/09 00:51:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/make.scm,v 3.8 1987/05/09 23:23:51 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -38,6 +38,7 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (define sf)
+(define sfu? false)
 (define sf/set-file-syntax-table!)
 (define sf/add-file-declarations!)
 
@@ -59,7 +60,7 @@ MIT in each case. |#
     (make-environment
       (define :name "SF")
       (define :version 3)
-      (define :modification 7)
+      (define :modification 8)
       (define :files)
 
       (define :files-lists
@@ -67,6 +68,7 @@ MIT in each case. |#
 	 (cons package/scode-optimizer
 	       '("mvalue.bin"		;Multiple Value Support
 		 "eqsets.bin"		;Set Data Abstraction
+		 "pthmap.bin"		;Pathname Map Abstraction
 		 "object.bin"		;Data Structures
 		 "emodel.bin"		;Environment Model
 		 "gconst.bin"		;Global Primitives List
diff --git a/v8/src/sf/make.scm b/v8/src/sf/make.scm
index 3bd12abc8..ccca750c9 100644
--- a/v8/src/sf/make.scm
+++ b/v8/src/sf/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 3.7 1987/05/09 00:51:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/sf/make.scm,v 3.8 1987/05/09 23:23:51 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -38,6 +38,7 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (define sf)
+(define sfu? false)
 (define sf/set-file-syntax-table!)
 (define sf/add-file-declarations!)
 
@@ -59,7 +60,7 @@ MIT in each case. |#
     (make-environment
       (define :name "SF")
       (define :version 3)
-      (define :modification 7)
+      (define :modification 8)
       (define :files)
 
       (define :files-lists
@@ -67,6 +68,7 @@ MIT in each case. |#
 	 (cons package/scode-optimizer
 	       '("mvalue.bin"		;Multiple Value Support
 		 "eqsets.bin"		;Set Data Abstraction
+		 "pthmap.bin"		;Pathname Map Abstraction
 		 "object.bin"		;Data Structures
 		 "emodel.bin"		;Environment Model
 		 "gconst.bin"		;Global Primitives List