syntax-rules: until

これを眺めていて思いつきました。

• vallog: call/cc sum1-n, reverse

名前付けが適切かわかりませんが、思いつかなかったので、label まで繰り返すということで until 。