From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 15 Jun 1987 18:21:00 +0000 (+0000)
Subject: Change primitives to use new type code for compiled-code-block.
X-Git-Tag: 20090517-FFI~13377
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=edd75a1d9d449cc81003d566e6ca4143dca70839;p=mit-scheme.git

Change primitives to use new type code for compiled-code-block.
Change print name to match one in runtime system.
---

diff --git a/v7/src/microcode/comutl.c b/v7/src/microcode/comutl.c
index ad10b978a..b95fa7b12 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.2 1987/06/05 16:25:22 cph Exp $
+$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 $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -43,7 +43,7 @@ MIT in each case. */
    ((OBJECT_TYPE (object)) == TC_RETURN_ADDRESS))
 
 Built_In_Primitive (Prim_compiled_code_address_block, 1,
-		    "COMPILED-CODE-ADDRESS-BLOCK", 0xB5)
+		    "COMPILED-CODE-ADDRESS->BLOCK", 0xB5)
 {
   Pointer *address;
   Primitive_1_Arg ();
@@ -51,7 +51,8 @@ Built_In_Primitive (Prim_compiled_code_address_block, 1,
 #ifdef CMPGCFILE
   CHECK_ARG (1, COMPILED_CODE_ADDRESS_P);
   address = (Get_Pointer (Arg1));
-  return (Make_Pointer (TC_VECTOR, (Get_Compiled_Block (address))));
+  return (Make_Pointer (TC_COMPILED_CODE_BLOCK,
+			(Get_Compiled_Block (address))));
 #else /* not CMPGCFILE */
   error_external_error ();
 #endif /* CMPGCFILE */