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:
Barra Ó Catháin 2023-04-12 23:29:57 +01:00
parent 35b3e939f1
commit b3ef4c1bb9
2 changed files with 5 additions and 1 deletions

View File

@ -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)))

View File

@ -206,7 +206,7 @@ void * schemeHandler(void * parameters)
// Enable readline support:
scm_c_eval_string("(begin (use-modules (ice-9 readline)) (activate-readline))");
// Drop into the Scheme interpreter:
scm_shell(0, NULL);