diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/nruncomp.boot | 5 |
2 files changed, 4 insertions, 5 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index f56d4925..4f0a367e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2008-11-27 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/nruncomp.boot (NRTgetAddForm): Remove, as unused. + +2008-11-27 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/nruncomp.boot (NRTassocIndex): Don't set $found. 2008-11-26 Gabriel Dos Reis <gdr@cs.tamu.edu> 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] |