one row half h: its sixteen scores, scaled to base 2 (the products have
finished: the first multiply waits for them)
287def saScaleRow = (lambda unrestricted h : Nat . (lambda unrestricted tail : (family SM86Program) .
288 (saFor 16 (lambda unrestricted i : Nat .
289 (let unrestricted e = (saElem (saS (naturalDivideUnchecked i 2)) h (naturalModuloUnchecked i 2)) in
290 (saFmul e e saScale saWaitNone)))
291 tail)))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.