From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 3 Aug 1993 02:26:28 +0000 (+0000)
Subject: Add a mechanism for mapping input scode objects to output scode
X-Git-Tag: 20090517-FFI~8143
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a922ea9cbafc2e2a1e47d7357bdb07e5c48e96cc;p=mit-scheme.git

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 7283ab760..1cb8d9987 100644
--- 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)
 
 ;;;; Optimizer Top Level
 
diff --git a/v8/src/sf/toplev.scm b/v8/src/sf/toplev.scm
index 7283ab760..1cb8d9987 100644
--- 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)
 
 ;;;; Optimizer Top Level