version 1.6, 1995/01/25 18:53:50
|
version 1.9, 1997/10/04 17:33:53
|
Line 1
|
Line 1
|
include glocals.fs |
require glocals.fs |
include debugging.fs |
require debugs.fs |
|
|
: localsinfo \ !! only debugging |
: localsinfo \ !! only debugging |
." stack: " .s ." locals-size: " locals-size ? ." locals-list" |
." stack: " .s ." locals-size: " locals-size ? ." locals-list" |
Line 302 cr
|
Line 302 cr
|
|
|
: test |
: test |
1 { a } ." after }" cr |
1 { a } ." after }" cr |
2 { b -- } ." after --" cr |
2 { b -- } ." after --" cr |
; |
; |
|
test |
.s cr |
.s cr |
|
|
bye |
bye |