Bug in Entry.stk ??

From: Frank Ridderbusch <ridderbusch.pad_at_sni.de>
Date: Mon, 24 Oct 94 12:01:29 MET

I think in method text-delete in Entry.stk there is missing a car.


(define-method text-delete ((self <Entry>) start . end)
  ((slot-ref self 'Id) 'delete start (if (null? end) start end)))
                                                           ^^^
                                                        Shouldn't this
                                                        be (car end)

-- 
MfG/Regards
     /====                          Siemens Nixdorf Informationssysteme AG
    /    Ridderbusch        / ,    Abt.: SU MR PD 251
   /                       /./    Heinz Nixdorf Ring
  /=== /,== ,===/  /,==,  //     33106 Paderborn, Germany
 /    //   /   /  //   / / \    Tel.: (49) 05251-8-15211
/    /     `==/\ /    / /   \  NERV:ridderbusch.pad
Email: ridderbusch.pad_at_sni-usa.com (America (North & South))
       ridderbusch.pad_at_sni.de      (Rest of world)
       

Received on Mon Oct 24 1994 - 12:08:26 CET