Fix edit bugs.

diff --git a/v7/src/microcode/lookprm.c b/v7/src/microcode/lookprm.c
index a870ac0fde7c7288c18b0b5c9595be77ee113c61..e3e6b0d9bdcc1ca93a1876435373f6ada392dfd6 100644 (file)
--- a/v7/src/microcode/lookprm.c
+++ b/v7/src/microcode/lookprm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookprm.c,v 1.5 1992/01/15 02:37:02 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookprm.c,v 1.6 1992/01/15 04:28:24 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -364,7 +364,7 @@ DEFINE_PRIMITIVE ("ENVIRONMENT-LINK-NAME", Prim_environment_link_name, 3, 3, 0)
        value_cell = MEMORY_LOC (cache, TRAP_EXTENSION_CELL);
        lookup_primitive_action
          (compiler_recache(shadowed_value_cell, value_cell, target,
-                           sym, MEMORY_FETCH (value_cell[0]), false, true));
+                           sym, (MEMORY_FETCH (value_cell[0])), false, true));
        MEMORY_SET (value, TRAP_EXTRA, cache);
        PRIMITIVE_RETURN(SHARP_T);
       }

diff --git a/v7/src/microcode/lookup.c b/v7/src/microcode/lookup.c
index 72b6553eb0a00592a8a278736f48af05b6af38ea..56e7e6aae93b3272bd2fb4efefe8442796db177b 100644 (file)
--- a/v7/src/microcode/lookup.c
+++ b/v7/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.47 1992/01/15 03:25:38 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.c,v 9.48 1992/01/15 04:29:05 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -1565,9 +1565,9 @@ extern long
 SCHEME_OBJECT compiler_cache_variable[3];
 
 Boolean
-DEFUN (local_reference_p, (env, hunk)
-     SCHEME_OBJECT env;
-     SCHEME_OBJECT * hunk;
+DEFUN (local_reference_p, (env, hunk),
+       SCHEME_OBJECT env
+       AND SCHEME_OBJECT * hunk)
 {
   SCHEME_OBJECT spec;
 

diff --git a/v7/src/microcode/lookup.h b/v7/src/microcode/lookup.h
index 6dcd335f379adb0947c575f1ab9302c8634871ed..ea9de72e057c72221098ed5c7a590028493507e4 100644 (file)
--- a/v7/src/microcode/lookup.h
+++ b/v7/src/microcode/lookup.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.h,v 9.45 1992/01/15 03:32:22 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/lookup.h,v 9.46 1992/01/15 04:28:52 jinx Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -310,7 +310,7 @@ extern long
 
 extern long
   EXFUN (compiler_recache,
-        (SCHEME_OBJECT *, SCHEME_OBJECT *, SCHEME_OBJECT, SCHEME_OBJECT
+        (SCHEME_OBJECT *, SCHEME_OBJECT *, SCHEME_OBJECT, SCHEME_OBJECT,
          SCHEME_OBJECT, Boolean, Boolean));
 
 extern SCHEME_OBJECT * shadowed_value_cell;

diff --git a/v8/src/microcode/lookup.c b/v8/src/microcode/lookup.c
index 033a18657a3dd76f5011770c74f41c6e7706d441..1e21449c6e851f2d6f80fc2aa739b4b24679d9e3 100644 (file)
--- a/v8/src/microcode/lookup.c
+++ b/v8/src/microcode/lookup.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.47 1992/01/15 03:25:38 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.c,v 9.48 1992/01/15 04:29:05 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -1565,9 +1565,9 @@ extern long
 SCHEME_OBJECT compiler_cache_variable[3];
 
 Boolean
-DEFUN (local_reference_p, (env, hunk)
-     SCHEME_OBJECT env;
-     SCHEME_OBJECT * hunk;
+DEFUN (local_reference_p, (env, hunk),
+       SCHEME_OBJECT env
+       AND SCHEME_OBJECT * hunk)
 {
   SCHEME_OBJECT spec;
 

diff --git a/v8/src/microcode/lookup.h b/v8/src/microcode/lookup.h
index f64980fb300b665d13405812afa2f48a4ca6f291..f4e3ff0af079d875c1add2f5b0278e3afe636cbd 100644 (file)
--- a/v8/src/microcode/lookup.h
+++ b/v8/src/microcode/lookup.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.h,v 9.45 1992/01/15 03:32:22 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/lookup.h,v 9.46 1992/01/15 04:28:52 jinx Exp $
 
 Copyright (c) 1988-92 Massachusetts Institute of Technology
 
@@ -310,7 +310,7 @@ extern long
 
 extern long
   EXFUN (compiler_recache,
-        (SCHEME_OBJECT *, SCHEME_OBJECT *, SCHEME_OBJECT, SCHEME_OBJECT
+        (SCHEME_OBJECT *, SCHEME_OBJECT *, SCHEME_OBJECT, SCHEME_OBJECT,
          SCHEME_OBJECT, Boolean, Boolean));
 
 extern SCHEME_OBJECT * shadowed_value_cell;