Diff for /gforth/prims2x.fs between versions 1.130 and 1.131

version 1.130, 2003/01/30 16:14:31 version 1.131, 2003/01/30 17:11:02
Line 1331  print-token ! Line 1331  print-token !
 : checksynclines ( -- )  : checksynclines ( -- )
     \ when input points to a newline, check if the next line is a      \ when input points to a newline, check if the next line is a
     \ sync line.  If it is, perform the appropriate actions.      \ sync line.  If it is, perform the appropriate actions.
     begin      rawinput @ begin >r
         rawinput @ >r  
         s" #line " r@ over compare if          s" #line " r@ over compare if
             rdrop 1 line +! EXIT              rdrop 1 line +! EXIT
         endif          endif
Line 1344  print-token ! Line 1343  print-token !
         endif          endif
         dup c@ nl-char <> 0= s" sync line syntax" ?print-error          dup c@ nl-char <> 0= s" sync line syntax" ?print-error
         skipsynclines @ if          skipsynclines @ if
             dup char+ rawinput !              char+ dup rawinput !
             rawinput @ c@ cookedinput @ c!              rawinput @ c@ cookedinput @ c!
         endif          endif
         drop  
     again ;      again ;
   
 : ?nextchar ( f -- )  : ?nextchar ( f -- )

Removed from v.1.130  
changed lines
  Added in v.1.131


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>