/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. 

  2. (load-library 'example "simple.so")
    3. 

    4. 

  4. (display "(My-variable): ")
    5. 

  5. (display (My-variable))
    6. 

  6. (display "\n")
    7. 

  7. 

  8. (display "(My-variable 3.141259): ")
    9. 

  9. (display (My-variable 3.141259))
    10. 

  10. (display "\n")
    11. 

  11. 

  12. (display "(My-variable): ")
    13. 

  13. (display (My-variable))
    14. 

  14. (display "\n")
    15. 

  15. 

  16. (display "(fact 5): ")
    17. 

  17. (display (fact 5))
    18. 

  18. (display "\n")
    19. 

  19. 

  20. (display "(mod 75 7): ")
    21. 

  21. (display (mod 75 7))
    22. 

  22. (display "\n")
    23. 

  23. 

  24. (display "(get-time): ")
    25. 

  25. (display (get-time))
    26. 

  26. (display "\n")
    27. 

  27. 

  28. (exit)
    29.