31 lines
473 B
Scheme
31 lines
473 B
Scheme
;; 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)
|