PageRenderTime 9ms CodeModel.GetById 1ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

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

#
Lisp | 28 lines | 20 code | 7 blank | 1 comment | 0 complexity | afaa468d1f82ffcee67b4c229e376957 MD5 | raw file
 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)