Parse lines (to new-line marker)

to-new-line-marker.red

bl: [a b
    c
]
parse bl [any [pos: if (not new-line? pos) skip] 'c]
; == true


bl: [ a b -> a + b
      c d -> c * (c + d)
]
line-rule: [word! word! '-> [any [pos: if (not new-line? pos) skip] ] ]
parse bl [
  any line-rule
]


bl: [ a b -> a + b
      c d -> c * (c + d)
]
line-rule: [
  set w1 word! set w2 word! (print mold reduce ["words: " w1 w2])
  '->
  start-pos: [any [pos: if (not new-line? pos) skip] ] end-pos: (print mold reduce ["code: " copy/part start-pos end-pos] )]
parse bl [
  any line-rule
]