mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-19 19:20:23 +02:00
Code Activity

Initial revision

Browse source
This commit is contained in:
Keisuke Nishida 2000-08-22 15:54:19 +00:00
commit a98cef7e6c
36 changed files with 5255 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test/test.scm Normal file
View file

@ -0,0 +1,12 @@
(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))