On Thu, Oct 9, 2008 at 2:04 PM, Martin Rubey wrote: >... > Modified: trunk/src/interp/i-syscmd.boot > =================================================================== > --- trunk/src/interp/i-syscmd.boot 2008-10-08 22:18:29 UTC (rev 406) > +++ trunk/src/interp/i-syscmd.boot 2008-10-09 18:04:12 UTC (rev 407) > @@ -1794,8 +1794,10 @@ > PAIRP ob => > qcar := QCAR ob > qcdr := QCDR ob > + (qcar = function newGoGet) => > + writifyInner replaceGoGetSlot qcdr > (name := spadClosure? ob) => > - d := writifyInner QCDR ob > + d := writifyInner qcdr ob > nob := ['WRITIFIED_!_!, 'SPADCLOSURE, d, name] > HPUT($seen, ob, nob) > HPUT($seen, nob, nob) > @@ -1883,6 +1885,7 @@ > spadClosure? ob == > fun := QCAR ob > not (name := BPINAME fun) => nil > + name = "WRAPPED" => nil > vec := QCDR ob > not VECP vec => nil > name >
Shouldn't this be: > - d := writifyInner QCDR ob > + d := writifyInner qcdr Or did I misunderstand the intended change? Regards, Bill Page. --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "FriCAS - computer algebra system" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [EMAIL PROTECTED] For more options, visit this group at http://groups.google.com/group/fricas-devel?hl=en -~----------~----~----~----~------~----~------~--~---
