From b3ef4c1bb9a2b6fa5c925aa904d278b77c1ee291 Mon Sep 17 00:00:00 2001 From: Barry Kane Date: Wed, 12 Apr 2023 23:29:57 +0100 Subject: [PATCH] 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? --- scheme/basic-functions.scm | 4 ++++ src/schemeintegration.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) create mode 100644 scheme/basic-functions.scm diff --git a/scheme/basic-functions.scm b/scheme/basic-functions.scm new file mode 100644 index 0000000..27f3c7c --- /dev/null +++ b/scheme/basic-functions.scm @@ -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))) diff --git a/src/schemeintegration.c b/src/schemeintegration.c index 6a87308..30bcac8 100644 --- a/src/schemeintegration.c +++ b/src/schemeintegration.c @@ -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);