Remove bignum test from \INSERTTREE -- was just a debugging aid

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