version 1.3, 1994/07/08 15:00:53
|
version 1.5, 1994/10/24 19:16:01
|
Line 94 until
|
Line 94 until
|
|
|
: xxx5 |
: xxx5 |
{ a } |
{ a } |
|
a drop |
ahead |
ahead |
|
assume-live |
begin |
begin |
[ ." after begin" localsinfo ] |
[ ." after begin" localsinfo ] |
|
a drop |
[ 1 cs-roll ] |
[ 1 cs-roll ] |
then |
then |
[ ." after then" localsinfo ] |
[ ." after then" localsinfo ] |
Line 245 until
|
Line 248 until
|
[ ." after xexit" localsinfo ] |
[ ." after xexit" localsinfo ] |
else |
else |
{ b } |
{ b } |
[ ." before xthen" localsinfo |
[ ." before xthen" localsinfo ] |
then |
then |
[ ." after xthen" localsinfo ] |
[ ." after xthen" localsinfo ] |
; |
; |
Line 278 s" " s" " strcmp1 . cr
|
Line 281 s" " s" " strcmp1 . cr
|
; |
; |
teststrcmp1 |
teststrcmp1 |
|
|
|
." testing the abominable locals-ext wordset" cr |
|
: puke locals| this read you can | |
|
you read this can ; |
|
|
|
1 2 3 4 puke . . . . cr |
|
|
bye |
bye |