Add a mechanism for mapping input scode objects to output scode

objects.  The original scode objects are passed through to the output,
and the *sf-associate* hook is called on the output scode and the
original scode.  The default *sf-associate* does nothing.

diff --git a/v7/src/sf/toplev.scm b/v7/src/sf/toplev.scm
index 7283ab76064ed0d2797d691decfe37ce183b81fc..1cb8d99870db57874677c0a6f2c0f50fcb7704b2 100644 (file)
--- a/v7/src/sf/toplev.scm
+++ b/v7/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.10 1993/01/02 07:33:38 cph Exp $
+$Id: toplev.scm,v 4.11 1993/08/03 02:26:28 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -268,7 +268,7 @@ MIT in each case. |#
   (string->symbol "#[(scode-optimizer top-level)externs-file]"))
 
 (define externs-file-version
-  2)
+  3)
 \f
 ;;;; Optimizer Top Level
 

diff --git a/v8/src/sf/toplev.scm b/v8/src/sf/toplev.scm
index 7283ab76064ed0d2797d691decfe37ce183b81fc..1cb8d99870db57874677c0a6f2c0f50fcb7704b2 100644 (file)
--- a/v8/src/sf/toplev.scm
+++ b/v8/src/sf/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.10 1993/01/02 07:33:38 cph Exp $
+$Id: toplev.scm,v 4.11 1993/08/03 02:26:28 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -268,7 +268,7 @@ MIT in each case. |#
   (string->symbol "#[(scode-optimizer top-level)externs-file]"))
 
 (define externs-file-version
-  2)
+  3)
 \f
 ;;;; Optimizer Top Level