mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-29 19:30:36 +02:00
12 lines
244 B
Scheme
12 lines
244 B
Scheme
|
|
(set! %load-path (cons ".." %load-path))
|
|
(use-modules (vm vm))
|
|
|
|
(define (test a b)
|
|
(if (equal? a b)
|
|
(display "OK\n")
|
|
(display "failed\n")))
|
|
|
|
(let ((file (cadr (command-line))))
|
|
(format #t "Testing ~S...\n" file)
|
|
(load file))
|