[Chicken-janitors] #1185: wrong sorting example for topological-sort

[Chicken Trac]

#1185: wrong sorting example for topological-sort
----------------------------+-----------------------------------------------
 Reporter:  ckeen           |       Owner:         
     Type:  defect          |      Status:  new    
 Priority:  major           |   Milestone:  someday
Component:  core libraries  |     Version:  4.9.x  
 Keywords:                  |  
----------------------------+-----------------------------------------------
 As found by "WJ" on comp.lang.scheme:

 {{{
 (topological-sort
  '((i am)
    (not trying)
    (confuse the)
    (am trying)
    (trying to)
    (am not)
    (trying the)
    (to confuse)
    (the issue))
   eq?)

  ===>
 (not i am trying to confuse the issue)


 The correct output is:

 (i am not trying to confuse the issue)
 }}}

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/1185>
CHICKEN Scheme <http://www.call-with-current-continuation.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.