version 1.4, 1994/07/27 13:37:03
|
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 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 |