From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 15 Jun 1987 23:02:20 +0000 (+0000)
Subject: Change `error_external_error' to correct name `error_external_return'.
X-Git-Tag: 20090517-FFI~13369
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3bb17c8cf55880d7f354ad6941acf3bea08a6d5e;p=mit-scheme.git

Change `error_external_error' to correct name `error_external_return'.
---

diff --git a/v7/src/microcode/comutl.c b/v7/src/microcode/comutl.c
index b95fa7b12..9d3e67eef 100644
--- a/v7/src/microcode/comutl.c
+++ b/v7/src/microcode/comutl.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/comutl.c,v 1.3 1987/06/15 18:21:00 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/comutl.c,v 1.4 1987/06/15 23:02:20 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -48,12 +48,13 @@ Built_In_Primitive (Prim_compiled_code_address_block, 1,
   Pointer *address;
   Primitive_1_Arg ();
 
-#ifdef CMPGCFILE
   CHECK_ARG (1, COMPILED_CODE_ADDRESS_P);
   address = (Get_Pointer (Arg1));
+
+#ifdef CMPGCFILE
   return (Make_Pointer (TC_COMPILED_CODE_BLOCK,
 			(Get_Compiled_Block (address))));
 #else /* not CMPGCFILE */
-  error_external_error ();
+  error_external_return ();
 #endif /* CMPGCFILE */
 }