--- gforth/see.fs 2010/08/28 10:04:34 1.74 +++ gforth/see.fs 2010/12/31 18:09:02 1.76 @@ -1,6 +1,6 @@ \ 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. @@ -518,10 +518,10 @@ VARIABLE C-Pass ELSE dup cell+ BranchAddr? Forward? IF dup cell+ @ WhileCode2 = - IF nl S" ELSE" .struc level+ + IF nl S" ELSE " .struc level+ ELSE level- nl S" ELSE" .struc level+ THEN cell+ Disable swap ! - ELSE S" AHEAD" .struc level+ + ELSE S" AHEAD " .struc level+ THEN THEN THEN