/trunk/Examples/chicken/simple/test-simple.scm
# · Lisp · 28 lines · 20 code · 7 blank · 1 comment · 0 complexity · afaa468d1f82ffcee67b4c229e376957 MD5 · raw file
- ;; feel free to uncomment and comment sections
- (load-library 'example "simple.so")
- (display "(My-variable): ")
- (display (My-variable))
- (display "\n")
- (display "(My-variable 3.141259): ")
- (display (My-variable 3.141259))
- (display "\n")
- (display "(My-variable): ")
- (display (My-variable))
- (display "\n")
- (display "(fact 5): ")
- (display (fact 5))
- (display "\n")
- (display "(mod 75 7): ")
- (display (mod 75 7))
- (display "\n")
- (display "(get-time): ")
- (display (get-time))
- (display "\n")
- (exit)