Błąd podczas uruchamiania dwóch plików

Hej, mam stworzone dwa bliki w scheme jeden:

#lang mzscheme
(define gcd 
  (lambda (m n)
    (if (= n 0) m (gcd n (remainder m n))
)))

drugi:

#lang mzscheme

(load "source.scm")                     ; Wczytaj funkcję souce z pliku source.scm
(display "Podaj liczbe naturalna ")
(define a (read))                    ; Wczytaj wyrażenie symboliczne ze standardowego wejcia 
(display "Podaj druga liczbe naturalna ")
(define b (read))                    ; Wczytaj wyrażenie symboliczne ze standardowego wejcia 
(display "Najwiekszy wspolny dzielnik podanych liczb wynosi ")
(display (gcd a b))                  ; Wylicz największy wspólny dzielnik i wywietl go  
(newline)

Pliki są w tym samym folderze, jednak jak chce je uruchomić to dostaje błąd o treści:

   source.scm:3:0: #%top-interaction: unbound identifier;
   also, no #%app syntax transformer is bound in: #%top-interaction

Pierwszy raz coś robię w tym języku i nie bardzo mam pomyśl jak sobie z tym poradzić

dodanie znaczników <code class="scheme"> i <code> - furious programming

W source.scm powinno być:

#lang mzscheme
(define (gcd m n)(
        if (= n 0) m (gcd n (remainder m n))
        )
)

w pliku ładującym source.scm nie trzeba już pisać

#lang mzscheme