Diff for /gforth/see.fs between versions 1.11 and 1.12

version 1.11, 1996/05/04 18:39:25 version 1.12, 1996/05/13 16:37:02
Line 590  create wordtypes Line 590  create wordtypes
         wordtypes          wordtypes
         BEGIN dup @ dup          BEGIN dup @ dup
         WHILE 2 pick = IF cell+ @ nip EXECUTE          WHILE 2 pick = IF cell+ @ nip EXECUTE
                           r> dup 32 and IF ."  immediate" THEN                            r> dup immediate-mask and IF ."  immediate" THEN
                                  64 and IF ."  restrict" THEN EXIT THEN                            restrict-mask  and IF ."  restrict" THEN
                             EXIT THEN
               2 cells +                2 cells +
         REPEAT          REPEAT
         2drop rdrop          2drop rdrop

Removed from v.1.11  
changed lines
  Added in v.1.12


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