diff options
Diffstat (limited to 'Examples/test-suite/mzscheme/newobject1_runme.scm')
-rw-r--r-- | Examples/test-suite/mzscheme/newobject1_runme.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Examples/test-suite/mzscheme/newobject1_runme.scm b/Examples/test-suite/mzscheme/newobject1_runme.scm new file mode 100644 index 000000000..17333ed5c --- /dev/null +++ b/Examples/test-suite/mzscheme/newobject1_runme.scm @@ -0,0 +1,9 @@ +(load-extension "newobject1.so") + +(require (lib "defmacro.ss")) + +; Define an equivalent to Guile's gc procedure +(define-macro (gc) + `(collect-garbage 'major)) + +(load (build-path (path-only (path->complete-path (find-system-path 'run-file))) "../schemerunme/newobject1.scm")) |