/trunk/Examples/chicken/simple/test-simple.scm

 1;; feel free to uncomment and comment sections
 2(load-library 'example "simple.so")
 3
 4(display "(My-variable): ")
 5(display (My-variable))
 6(display "\n")
 7
 8(display "(My-variable 3.141259): ")
 9(display (My-variable 3.141259))
10(display "\n")
11
12(display "(My-variable): ")
13(display (My-variable))
14(display "\n")
15
16(display "(fact 5): ")
17(display (fact 5))
18(display "\n")
19
20(display "(mod 75 7): ")
21(display (mod 75 7))
22(display "\n")
23
24(display "(get-time): ")
25(display (get-time))
26(display "\n")
27
28(exit)