rebol - Rebol RebDBリレーショナルデータベース：今日の日付を挿入するためのより良い構文はありますか

Question

ユーザーガイドからhttp://www.dobeash.com/RebDB/db-guide.html

これは私がしました

>> record: make block! []
== []
>> append record 'next
== [next]
>> append record now/date
== [next 13-Sep-2009]
>> append record "test insert date"
== [next 13-Sep-2009 "test insert date"]
>> db-insert my-table record
== [4 13-Sep-2009 "test insert date"]
>>

これを1行で行う短い方法はありますか？

Answer 1

次のいずれかを使用できますCOMPOSE。

db-insert my-table compose [next (now/date) "test insert date"]

またはREDUCE:

db-insert my-table reduce ['next now/date "test insert date"]