From 16517cdfc5ffa9bf9a84db5c09ed6bfe3796f8cb Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Wed, 10 Aug 2022 21:09:12 -0700
Subject: [PATCH] Remove bignum test from \INSERTTREE -- was just a debugging
 aid (#863)

---
 library/tedit/TEDIT-PCTREE      |  21 +++++++++------------
 library/tedit/TEDIT-PCTREE.LCOM | Bin 9227 -> 9124 bytes
 2 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/library/tedit/TEDIT-PCTREE b/library/tedit/TEDIT-PCTREE
index dc8e3739..eab26b14 100644
--- a/library/tedit/TEDIT-PCTREE
+++ b/library/tedit/TEDIT-PCTREE
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "14-Jul-2022 17:00:01" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>tedit>TEDIT-PCTREE.;1
 27141  
+
(FILECREATED "26-Jul-2022 10:35:13" {DSK}<home>larry>medley>library>tedit>TEDIT-PCTREE.;2
 26909  
 
-      :PREVIOUS-DATE "14-Jul-2022 11:08:10" 
-{DSK}<users>kaplan>local>medley3.5>working-medley>library>newtedit>TEDIT-PCTREE.;2)
+      :CHANGES-TO (FNS \INSERTTREE)
+
+      :PREVIOUS-DATE "14-Jul-2022 17:00:01" {DSK}<home>larry>medley>library>tedit>TEDIT-PCTREE.;1)
 
 
 (PRETTYCOMPRINT TEDIT-PCTREECOMS)
@@ -168,8 +168,7 @@
               1))])
 
 (\INSERTTREE

-  [LAMBDA (NEW OLD PCNODE NEW-PREVLEN NEW-OLDLEN PREV)
     (* ; "Edited 21-Jun-2022 23:39 by larry")

-                                                             (* ; 
+  [LAMBDA (NEW OLD PCNODE NEW-PREVLEN NEW-OLDLEN PREV)       (* ; 
 
                                                        "Edited 21-Mar-95 15:29 by sybalsky:mv:envos")

 
     (* ;; "inserts NEW in front of OLD in PCNODE.  NEW/OLD are either pieces or tree nodes.")

@@ -231,8 +230,6 @@
                  (T (\ILLEGAL.ARG NEW)))
               (SETQ NEWLEN (for
 I from
 0 to
 NODE-COUNT as
 ITEM# from
 2 by
 4
                               sum
 (\GETBASEFIXP PCNODE ITEM#)))
-              (IF
 (TYPE?
 BIGNUM NEWLEN)
-                  THEN
 (HELP NEWLEN " is bignum"))
               (replace
 (BTREENODE TOTLEN) of
 PCNODE with
 NEWLEN)
 
               (* ;; " If adding this piece overflows the tree node, split it.")

@@ -542,9 +539,9 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2938 22352 (UPDATEPCNODES 2948 . 3917) (FINDPCNODE 3919 . 4155) (\FIRSTNODE 4157 . 4518
-) (\DELETETREE 4520 . 6985) (\INSERTTREE 6987 . 11551) (\LASTNODE 11553 . 12090) (\MATCHPCS 12092 . 
-12816) (\SPLITTREE 12818 . 19698) (\TEDIT.UPDATETREE 19700 . 21207) (\TEDIT.PIECE-CHNO 21209 . 21791) 
-(\TEDIT.SET-TOTLEN 21793 . 22350)) (22353 24789 (DISPTREE 22363 . 22819) (TREEGRAPHNODE 22821 . 24787)
+  (FILEMAP (NIL (2918 22120 (UPDATEPCNODES 2928 . 3897) (FINDPCNODE 3899 . 4135) (\FIRSTNODE 4137 . 4498
+) (\DELETETREE 4500 . 6965) (\INSERTTREE 6967 . 11319) (\LASTNODE 11321 . 11858) (\MATCHPCS 11860 . 
+12584) (\SPLITTREE 12586 . 19466) (\TEDIT.UPDATETREE 19468 . 20975) (\TEDIT.PIECE-CHNO 20977 . 21559) 
+(\TEDIT.SET-TOTLEN 21561 . 22118)) (22121 24557 (DISPTREE 22131 . 22587) (TREEGRAPHNODE 22589 . 24555)
 ))))
 STOP
diff --git a/library/tedit/TEDIT-PCTREE.LCOM b/library/tedit/TEDIT-PCTREE.LCOM
index 23d93c5cc731b8c0cc151101403e82c3fd625753..4b905da70102960be99ad0717b59ae98ab8863d0 100644
GIT binary patch
delta 404
zcmeD7SmHh*T*Sys*Q+!~*T}%gNWsv+%GlJ((0F3DBzH!BZmL~QVo_10-Q*rd<$5Dc
z1tlX>B(;`S#)ei#W=aZ4MXAa8xdoXysVNG{8Hsu6sl}>R3S2Rse!;FmAt6Dot_qoX
z3QBIFK0XS_Cg|zuDJi5RmH@S3Gucu}lS{+R)5q00$kj1K+tmfA3X5Bn6slc<y=!gI
z+-qv2U}R=#V5z`m<?P|;=k6M;8{)5^;pP{tfaEYu1*?D{*Dz22&|qB`#}L=a9*pv6
zK3Can$h41@@$Tji>?;{3ui>;ZHaAv?32}At4ABb>0BHjI(8R=2AtpG$#}ndV6JryF
tn1Ij_C&yq{H_wR4N?fO<OwARXKx+N`U0fARjLZ<c$wJ)8o7=csB>)4Ta4rA<

delta 564
zcmZ4D-t93VT*S~s*Q+!~*T}%gNWswD%D}+N&}d?|q-tq#YEiLWc49$JVxC=2esW@t
zU2bYhPHLsGo~d1Veo=O2Ub^nYe&u>YO$9C`6jO|?3@xn;%#{?9ic*vFa|<$aQd1OC
zD+-E=Rjm~A@=G#+S`{+$6qMXTeS8#<wd(2VDJi5RmH^dbGt<yWNs~*%&C|!#Imp#9
z#MMPX$<PtQ{RW0g3S8AL!QQnt#Ct-)$lTDxP{Ar7$TiH<KQvg^1!z9HBMhw!EUXL-
zNHZQ1YIZr9Nkxf8m3Dcl<v{Ocme>KE?-`;S;2aX<>N;@)%VuV#y{wEMHXmeP$taw1
zm;nf8d*y>DE)cPQau%nRjir%73|OCDXaLB8AiWAEW)=!D!2v#=ArP*qu|iBhXo!<z
zu&bMAM1X>cv4w(%tIy=?oTpXI%@mwKs{H(2fErCqk$FZyIZt=LP~XXWxRM1-jExnP
V6f%nyk}}itN^_Mq%W=0!001y{q@Vx*