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"] 
>> 

Любой короче способ сделать это в одной строке?

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"]