Diff for /gforth/see.fs between versions 1.33 and 1.34

version 1.33, 2000/11/13 22:10:30 version 1.34, 2001/01/28 17:39:33
Line 99  DEFER nlcount ' noop IS nlcount Line 99  DEFER nlcount ' noop IS nlcount
                 IF 2drop ELSE XPos +! C-Output @ IF emit ELSE drop THEN                  IF 2drop ELSE XPos +! C-Output @ IF emit ELSE drop THEN
                 THEN ;                  THEN ;
   
 DEFER .string  DEFER .string ( c-addr u n -- )
   
 [IFDEF] Green  [IFDEF] Green
 VARIABLE Colors Colors on  VARIABLE Colors Colors on
Line 488  c-extender ! Line 488  c-extender !
                   THEN ;                    THEN ;
   
 : analyse ( a-addr1 -- a-addr2 )  : analyse ( a-addr1 -- a-addr2 )
         Branches @ IF BranchTo? THEN      Branches @ IF BranchTo? THEN
         dup cell+ swap @      dup cell+ swap @
         dup >r DoTable r> swap IF drop EXIT THEN      dup >r DoTable r> swap IF drop EXIT THEN
         Display?      Display?
         IF look 0= IF  drop dup 1 cells - @ ." <" 0 .r ." >"      IF
           look 0= IF
               drop dup 1 cells - @ ." <" 0 .r ." >"
         ELSE          ELSE
             dup cell+ count dup immediate-mask and              dup cell+ @ immediate-mask and
             IF  bl cemit  ." POSTPONE " THEN              IF
             31 and rot wordinfo .string  THEN  bl cemit                  bl cemit  ." POSTPONE "
         ELSE drop              THEN
         THEN ;              dup name>string rot wordinfo .string
           THEN
           bl cemit
       ELSE
           drop
       THEN ;
   
 : c-init  : c-init
         0 YPos ! 0 XPos !          0 YPos ! 0 XPos !

Removed from v.1.33  
changed lines
  Added in v.1.34


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