view-next-line:toolbelt — ordinary primitive
FORTH
VIEW-NEXT-LINE ( src . str len -- src . str len str2 len2 )(
)
Copy next line above current line.
: VIEW-NEXT-LINE 2OVER 2DUP #EOL-CHAR SCAN NIP - ;