1. Iruatã Souza
  2. depot

Commits

iru  committed 8b4451a

Test routine

  • Participants
  • Parent commits aa41756
  • Branches default

Comments (0)

Files changed (1)

File slist.f

View file
  • Ignore whitespace
 : .list  begin dup cr .elem  link @ dup 0= until drop ;
 : tail!  begin link dup @ 0<> while @ repeat ! ;
 
-create hd 0 ,
-s" iruata" elem hd ! 
-s" martins" elem hd @ link !
+: test  s" first element" elem s" second and last" elem over link ! ;