BMUG PD-ROM 1995 Fall/PD-ROM F95.toast/Programming/Programming Languages/UCB Logo 3.0 ƒ/logolib/find

Text File | 1992-09-04 | 298 b | 9 lines | [TEXT/ttxt]

to find :find.template :template.list [:template.number 1] ~
        [:template.lists (list :template.list)]
if emptyp :template.list [op []]
if apply :find.template (list first :template.list) [op first :template.list]
op (find :find.template bf :template.list :template.number+1)
end

bury "find