Diff for /gforth/see.fs between versions 1.74 and 1.76

version 1.74, 2010/08/28 10:04:34 version 1.76, 2010/12/31 18:09:02
Line 1 Line 1
 \ SEE.FS       highend SEE for ANSforth                16may93jaw  \ SEE.FS       highend SEE for ANSforth                16may93jaw
   
 \ Copyright (C) 1995,2000,2003,2004,2006,2007,2008 Free Software Foundation, Inc.  \ Copyright (C) 1995,2000,2003,2004,2006,2007,2008,2010 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 518  VARIABLE C-Pass Line 518  VARIABLE C-Pass
                         ELSE                          ELSE
                                 dup cell+ BranchAddr? Forward?                                  dup cell+ BranchAddr? Forward?
                                 IF      dup cell+ @ WhileCode2 =                                  IF      dup cell+ @ WhileCode2 =
                                         IF nl S" ELSE" .struc level+                                          IF nl S" ELSE " .struc level+
                                         ELSE level- nl S" ELSE" .struc level+ THEN                                          ELSE level- nl S" ELSE" .struc level+ THEN
                                         cell+ Disable swap !                                          cell+ Disable swap !
                                 ELSE    S" AHEAD" .struc level+                                  ELSE    S" AHEAD " .struc level+
                                 THEN                                  THEN
                         THEN                          THEN
                 THEN                  THEN

Removed from v.1.74  
changed lines
  Added in v.1.76


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