Diff for /gforth/see.fs between versions 1.4 and 1.5

version 1.4, 1994/09/12 19:00:37 version 1.5, 1994/11/29 16:22:47
Line 457  DEFER dosee Line 457  DEFER dosee
          here @ look 0= ABORT" SEE: No valid xt in defered word"           here @ look 0= ABORT" SEE: No valid xt in defered word"
          here @ look drop dosee cr           here @ look drop dosee cr
         ." ' " .name r> ." IS " .name cr ;          ." ' " .name r> ." IS " .name cr ;
 : dodoe ." Create " .name cr  : dodoe ." Create " dup .name cr
         S" DOES> " Com# .string XPos @ Level !          S" DOES> " Com# .string XPos @ Level ! name>
         here @ dup C-Pass @ DebugMode = IF ScanMode c-pass ! EXIT THEN          >does-code dup C-Pass @ DebugMode = IF ScanMode c-pass ! EXIT THEN
         ScanMode c-pass ! dup makepass          ScanMode c-pass ! dup makepass
         DisplayMode c-pass ! makepass ;          DisplayMode c-pass ! makepass ;
 : doali here @ .name ." Alias " .name cr  : doali here @ .name ." Alias " .name cr

Removed from v.1.4  
changed lines
  Added in v.1.5


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