Diff for /gforth/see.fs between versions 1.70 and 1.71

version 1.70, 2010/05/01 20:36:59 version 1.71, 2010/05/01 21:29:08
Line 309  VARIABLE C-Pass Line 309  VARIABLE C-Pass
         endif          endif
         over 4 cells + over = if          over 4 cells + over = if
             over 1 cells + @ decompile-prim ['] call xt>threaded = >r              over 1 cells + @ decompile-prim ['] call xt>threaded = >r
             over 2 cells + @ ['] !does >body = >r  
             over 3 cells + @ decompile-prim ['] ;S xt>threaded =              over 3 cells + @ decompile-prim ['] ;S xt>threaded =
             r> and r> and              r> and if
             if  drop c-does>  4 cells + EXIT  endif              over 2 cells + @ ['] !does >body = if  drop
                   S" DOES> " Com# .string 4 cells + EXIT endif
               [IFDEF] !;abi-code
                   over 2 cells + @ ['] !;abi-code >body = if  drop
                       S" DOES> " Com# .string 4 cells + EXIT endif
               [THEN]
               endif
         endif          endif
         \ !! test for cfa here, and print "['] ..."          \ !! test for cfa here, and print "['] ..."
         dup abs 0 <# #S rot sign #> 0 .string bl cemit          dup abs 0 <# #S rot sign #> 0 .string bl cemit

Removed from v.1.70  
changed lines
  Added in v.1.71


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