File: testNest.fth

package info (click to toggle)
fcode-utils 1.0.2-7
  • links: PTS
  • area: main
  • in suites: buster, stretch
  • size: 46,976 kB
  • ctags: 1,402
  • sloc: ansic: 9,705; csh: 241; makefile: 106; sh: 17
file content (27 lines) | stat: -rw-r--r-- 553 bytes parent folder | download | duplicates (20) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
\  It seems that  fload  nesting diddent werk rite.
\  Let's see just how bad it was...

\  I fixed assigning FCode numbers, but not nesting
\  Seemed it diddent nest more than one deep...

\  Did I fix it?
\  Yeah.  It was an artifact of an error in the test sequence...

fcode-version2

headers
instance variable happy
instance variable grumpy
instance variable sleepy

fload testNest1.fth

: whatsit0ya ( -- )
   whatsit1ya
    ."  Happy is " happy @ .
    ."  Grumpy is " grumpy @ .
    ."  Sleepy is " sleepy @ .
   ['] downdate catch
;

fcode-end