10 lines
276 B
Scheme
10 lines
276 B
Scheme
|
(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"))
|