From 05e233e4dfbd9c384ca555ee28229a2c4e7d9144 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Wed, 15 Jan 1992 04:29:05 +0000
Subject: [PATCH] Fix edit bugs.
---
v7/src/microcode/lookprm.c | 4 ++--
v7/src/microcode/lookup.c | 8 ++++----
v7/src/microcode/lookup.h | 4 ++--
v8/src/microcode/lookup.c | 8 ++++----
v8/src/microcode/lookup.h | 4 ++--
5 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/v7/src/microcode/lookprm.c b/v7/src/microcode/lookprm.c
index a870ac0fd..e3e6b0d9b 100644
--- 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 72b6553eb..56e7e6aae 100644
--- 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 6dcd335f3..ea9de72e0 100644
--- 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 033a18657..1e21449c6 100644
--- 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 f64980fb3..f4e3ff0af 100644
--- 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;
--
2.25.1