| ;; run with mzscheme -r runme.scm | |
| (load-extension "example.so") | |
| ; Call our gcd() function | |
| (define x 42) | |
| (define y 105) | |
| (define g (gcd x y)) | |
| (display "The gcd of ") | |
| (display x) | |
| (display " and ") | |
| (display y) | |
| (display " is ") | |
| (display g) | |
| (newline) | |
| ; Manipulate the Foo global variable | |
| ; Output its current value | |
| (display "Foo = ") | |
| (display (Foo)) | |
| (newline) | |
| ; Change its value | |
| (Foo 3.1415926) | |
| ; See if the change took effect | |
| (display "Foo = ") | |
| (display (Foo)) | |
| (newline) |