22 lines
452 B
Scheme
22 lines
452 B
Scheme
|
|
(define (mdisplay-newline . args) ; does guile-1.3.4 have `format #t'?
|
|
(for-each display args)
|
|
(newline))
|
|
|
|
; Call our gcd() function
|
|
|
|
(define x 42)
|
|
(define y 105)
|
|
(define g (gcd x y))
|
|
(mdisplay-newline "The gcd of " x " and " y " is " g)
|
|
|
|
; Manipulate the Foo global variable
|
|
|
|
; Output its current value
|
|
(mdisplay-newline "Foo = " (Foo))
|
|
|
|
; Change its value
|
|
(Foo 3.1415926)
|
|
|
|
; See if the change took effect
|
|
(mdisplay-newline "Foo = " (Foo))
|