/tags/rel-1.3.35/Examples/chicken/simple/test-simple.scm
Lisp | 28 lines | 20 code | 7 blank | 1 comment | 0 complexity | afaa468d1f82ffcee67b4c229e376957 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
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)