Name

view-next-line:toolbelt — ordinary primitive

Synopsis

FORTH
VIEW-NEXT-LINE ( src . str len -- src . str len str2 len2 )(); 
 ;

Description

Copy next line above current line.

 : VIEW-NEXT-LINE 
    2OVER 2DUP #EOL-CHAR SCAN NIP - ;