From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 6 Mar 2003 05:41:19 +0000 (+0000)
Subject: Eliminate long-unused support for applicable records.
X-Git-Tag: 20090517-FFI~2001
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=62e5285316cf3ac866ed94d46d1186914bf9bb98;p=mit-scheme.git

Eliminate long-unused support for applicable records.
---

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 70c16219d..29e3ba67f 100644
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.99 2003/03/06 04:57:52 cph Exp $
+$Id: interp.c,v 9.100 2003/03/06 05:41:19 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,2000,2001,2002,2003 Massachusetts Institute of Technology
@@ -1521,7 +1521,6 @@ DEFUN (Interpret, (pop_return_p), int pop_return_p)
 	    }
 
 	  default:
-	  internal_apply_inapplicable:
 	    APPLICATION_ERROR (ERR_INAPPLICABLE_OBJECT);
 	  }
       }