[Bugs] #2272 UNSP: missing "id" procedure

[Sugar Labs Bugs]

#2272: missing "id" procedure
------------------------------------------+---------------------------------
    Reporter:  DanielAjoy                 |          Owner:  walter                     
        Type:  defect                     |         Status:  new                        
    Priority:  Unspecified by Maintainer  |      Milestone:  Unspecified by Release Team
   Component:  Turtleart                  |        Version:  Unspecified                
    Severity:  Unspecified                |       Keywords:                             
Distribution:  Unspecified                |   Status_field:  Unconfirmed                
------------------------------------------+---------------------------------
 While exporting this code
 http://wiki.laptop.org/go/Aplicacion_Problema_de_Pizzas#TortugArte

 to Logo

 The resulting code doesn't include a definition of "id"

 The resulting Logo code is just:

 window
 to tapush :foo
 make "taheap fput :foo :taheap
 end
 to tapop
 if emptyp :taheap [stop]
 make "tmp first :taheap
 make "taheap butfirst :taheap
 output :tmp
 end
 to taclearheap
 make "taheap []
 end
 to taprintheap
 print :taheap
 end
 make "taheap []
 to start
  taclearheap make "box1 0.0 repeat 10.0 [ make "box2 0.0 repeat 10.0 [ if
 ( equal? 920.0 sum id product :box1 120.0 id product :box2 160.0 ) [
 tapush :box1 tapush :box2 taprintheap ]     make "box2 sum 1.0 :box2 ]
 make "box1 sum 1.0 :box1 ]
 end

-- 
Ticket URL: <http://bugs.sugarlabs.org/ticket/2272>
Sugar Labs <http://sugarlabs.org/>
Sugar Labs bug tracking system