Как включить состояние новой строки слова в Rebol?

Question

Я знаю, я знаю. «Какое новое состояние?», Спросите вы. Ну, позвольте мне показать вам:

append [] w: first new-line [hello] on 
== [ 
    hello 
] 

W является теперь слово, которое создает новую строку, когда добавляется к блоку.

Вы можете отключить его, например, таким образом, в Rebol 3:

append [] to word! w 
== [hello] 

Но я не нашел хороший способ, чтобы включить его. Можете ли вы, ребол гуру?

Разъяснение: Я ищу некоторые «F такие, что:

append [] f to word! "hello" 

имеет новую строку в нем.

Answer 1

По-видимому, состояние новой строки присваивается слову в зависимости от того, имеет ли присвоенное значение значение предыдущую новую строку во время присвоения (я буду размышлять над правильностью этого оператора на некоторое время).

Эта функция перераспределяет то же значение (должен сохранить контекст) на слово с новым состоянием новой строки:

set-new-line: func [ 
    'word [word!] 
    state [logic!] 
][ 
    set/any word first new-line reduce [get/any word] state 
] 

Мы также можем проверить состояние новой строки данного слова:

has-new-line?: func [ 
    'word [word!] 
][ 
    new-line? reduce [get/any word] 
] 

При использовании:

>> x: "Foo" 
== "Foo" 

>> has-new-line? x 
== false 

>> reduce [x] 
== ["Foo"] 

>> set-new-line x on 
== "Foo" 

>> has-new-line? x 
== true 

>> reduce [x]   
== [ 
    "Foo" 
] 

>> reduce [set-new-line x on set-new-line x off set-new-line x on] 
== [ 
    "Foo" "Foo" 
    "Foo" 
] 

• должны работать в rebol2 и rebol3

• , кажется, работает в red v0.6.1 с одной оговоркой: new-line?, кажется, всегда возвращать true

Answer 2

Чтобы ответить на исходный вопрос (который я знаю , потому что я спросил его, в другом воплощении):