File: Test12

package info (click to toggle)
omake 0.10.7-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 14,076 kB
  • sloc: ml: 49,729; ansic: 5,163; makefile: 688; sh: 110
file content (10 lines) | stat: -rw-r--r-- 274 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
 
try
   F=$(fun x, 1)
   printvln($F)
   println($"Arity of F is $(F.arity)")
   if $(not $(eq $(F.arity), 1))
      eprintln($"Arity of F is $(F.arity), when 1 was expected")
      exit 1
default
   eprintln($"Could not compute the arity of a \$(fun) expression")
   exit 1