version 1.113, 2001/09/12 14:45:38
|
version 1.114, 2001/09/12 14:55:54
|
Line 1043 End-Struct addr-struct
|
Line 1043 End-Struct addr-struct
|
|
|
\ Predefined ghosts 12dec92py |
\ Predefined ghosts 12dec92py |
|
|
|
Ghost - drop \ need a ghost otherwise "-" would be treated as a number |
|
|
Ghost 0= drop |
Ghost 0= drop |
Ghost branch Ghost ?branch 2drop |
Ghost branch Ghost ?branch 2drop |
Ghost (do) Ghost (?do) 2drop |
Ghost (do) Ghost (?do) 2drop |
Line 1057 Ghost '
|
Line 1059 Ghost '
|
Ghost :docol Ghost :doesjump Ghost :dodoes 2drop drop |
Ghost :docol Ghost :doesjump Ghost :dodoes 2drop drop |
Ghost :dovar drop |
Ghost :dovar drop |
Ghost over Ghost = Ghost drop 2drop drop |
Ghost over Ghost = Ghost drop 2drop drop |
Ghost - drop |
|
Ghost 2drop drop |
Ghost 2drop drop |
Ghost 2dup drop |
Ghost 2dup drop |
|
|