From df58c8db0c065f238f901ecba89827cc87d8c6bf Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 27 Nov 2008 17:55:09 +0000
Subject: 	* interp/nruncomp.boot (NRTgetAddForm): Remove, as unused.

---
 src/interp/nruncomp.boot | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/interp/nruncomp.boot')

diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index 3d5114d7..4ecf54e8 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -276,11 +276,6 @@ NRTgetLocalIndex item ==
   RPLACA(saveNRTdeltaListComp,compEntry)
   saveIndex
 
-NRTgetAddForm domain ==
-  u := HGET($Slot1DataBase,first domain) =>
-    EQSUBSTLIST(rest domain,$FormalMapVariableList,first u)
-  systemErrorHere '"NRTgetAddForm"
-
 NRTassignCapsuleFunctionSlot(op,sig) ==
 --called from compDefineCapsuleFunction
   opSig := [op,sig]
-- 
cgit v1.2.3