Ticket #2272 (closed defect: fixed)
missing "id" procedure
| Reported by: | DanielAjoy | Owned by: | walter |
|---|---|---|---|
| Priority: | Unspecified by Maintainer | Milestone: | Unspecified by Release Team |
| Component: | Turtleart | Version: | Unspecified |
| Severity: | Unspecified | Keywords: | |
| Cc: | Distribution/OS: | Unspecified | |
| Bug Status: | Unconfirmed |
Description
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
