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

version 1.32, 2000/10/29 08:37:45 version 1.33, 2000/11/13 22:10:30
Line 492  c-extender ! Line 492  c-extender !
         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 - @ .  \ ABORT" SEE: Bua!"          IF look 0= IF  drop dup 1 cells - @ ." <" 0 .r ." >"
         ELSE          ELSE
             dup cell+ count dup immediate-mask and              dup cell+ count dup immediate-mask and
             IF  bl cemit  ." POSTPONE " THEN              IF  bl cemit  ." POSTPONE " THEN

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


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