Return to see.fs CVS log | Up to [gforth] / gforth |
version 1.60, 2007/02/18 18:30:51 | version 1.62, 2007/12/31 17:34:58 |
---|---|
Line 1 | Line 1 |
\ SEE.FS highend SEE for ANSforth 16may93jaw | \ SEE.FS highend SEE for ANSforth 16may93jaw |
\ Copyright (C) 1995,2000,2003,2004,2006 Free Software Foundation, Inc. | \ Copyright (C) 1995,2000,2003,2004,2006,2007 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
Line 758 Defer discode ( addr u -- ) \ gforth | Line 758 Defer discode ( addr u -- ) \ gforth |
dup >code-address | dup >code-address |
CASE | CASE |
docon: of seecon endof | docon: of seecon endof |
dovalue: of seevalue endof | |
docol: of seecol endof | docol: of seecol endof |
dovar: of seevar endof | dovar: of seevar endof |
[ [IFDEF] douser: ] | [ [IFDEF] douser: ] |