11 lines
349 B
Scheme
11 lines
349 B
Scheme
(import (r7rs))
|
|
(define-library (qml)
|
|
(import (scheme base))
|
|
(import (chicken foreign))
|
|
(import foreigners)
|
|
(export dos_qcoreapplication_application_dir_path)
|
|
(begin
|
|
(define dos_qcoreapplication_application_dir_path
|
|
(foreign-lambda* c-string ()
|
|
"C_return(dos_qcoreapplication_application_dir_path());"))))
|