Added a basic-functions scheme file.
I'll need a consistent way to load these files. Perhaps I actually need a proper build system now. Autotools, here we come?
This commit is contained in:
parent
35b3e939f1
commit
b3ef4c1bb9
|
@ -0,0 +1,4 @@
|
||||||
|
(define (create-two-way-path from-path-description to-path-description from-area to-area arealist)
|
||||||
|
(begin
|
||||||
|
(create-path from-path-description from-area to-area arealist)
|
||||||
|
(create-path to-path-description to-area from-area arealist)))
|
|
@ -206,7 +206,7 @@ void * schemeHandler(void * parameters)
|
||||||
|
|
||||||
// Enable readline support:
|
// Enable readline support:
|
||||||
scm_c_eval_string("(begin (use-modules (ice-9 readline)) (activate-readline))");
|
scm_c_eval_string("(begin (use-modules (ice-9 readline)) (activate-readline))");
|
||||||
|
|
||||||
// Drop into the Scheme interpreter:
|
// Drop into the Scheme interpreter:
|
||||||
scm_shell(0, NULL);
|
scm_shell(0, NULL);
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue