version 1.9, 1996/01/07 17:22:11
|
version 1.10, 1996/05/09 18:13:00
|
Line 72 s" ~/.gforth-history" get-history
|
Line 72 s" ~/.gforth-history" get-history
|
REPEAT 2drop THEN |
REPEAT 2drop THEN |
tuck 2dup type 0 ; |
tuck 2dup type 0 ; |
|
|
: ctrl ( "<char>" -- ctrl-code ) |
: ctrl ( compilation: "<char>" -- ) ( run-time: -- ctrl-code ) |
char [char] @ - postpone Literal ; immediate |
char [char] @ - postpone Literal ; immediate |
|
interpretation: ( "<char>" -- ctrl-code ) |
|
char [char] @ - ; |
|
|
Create lfpad #lf c, |
Create lfpad #lf c, |
|
|