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 7c752e419b71cff175450aa74e06a96cce7e2f5b..1340447f6258791228a782deba40a8cb2b039f84 100644 (file)
--- 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))
 \f
 (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 3bd12abc8a2c04502911701a1505ea8979aa200d..ccca750c91ac4ea0d3aba9d99700af5eb688def0 100644 (file)
--- 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))
 \f
 (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