From 9965ff684b0ac12574528f231f29d6c9d27c1889 Mon Sep 17 00:00:00 2001 From: Woodrow Douglass Date: Tue, 13 Oct 2020 08:33:40 -0400 Subject: [PATCH 2/2] load ffitest .scm files from the working directory --- ffitest.c | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/ffitest.c b/ffitest.c index 6c5ba67..a664517 100644 --- a/ffitest.c +++ b/ffitest.c @@ -503,7 +503,7 @@ static const char *pretty_print(s7_scheme *sc, s7_pointer obj) /* (pretty-print "(catch #t \ (lambda () \ (unless (defined? 'pp) \ - (load \"/home/bil/cl/write.scm\")) \ + (load \"write.scm\")) \ (pp obj)) \ (lambda (type info) \ (apply format #f info)))", @@ -1628,15 +1628,15 @@ int main(int argc, char **argv) gc_loc = s7_gc_protect(sc, e); val = s7_load_with_environment(sc, "~/ffitest.scm", e); if (val) - fprintf(stderr, "%d: load ~/ffitest.scm found!?\n", __LINE__); - val = s7_load_with_environment(sc, "~/cl/ffitest.scm", e); + fprintf(stderr, "%d: load ~/ffitest.scm found!?\n", __LINE__); + val = s7_load_with_environment(sc, "ffitest.scm", e); if (!val) - fprintf(stderr, "%d: load ~/cl/ffitest.scm not found\n", __LINE__); + fprintf(stderr, "%d: load ffitest.scm not found\n", __LINE__); else - { - if (s7_symbol_local_value(sc, s7_make_symbol(sc, "loaded_var"), e) == s7_undefined(sc)) - {fprintf(stderr, "%d: load ~/ffitest.scm unhappy? %s\n", __LINE__, s1 = TO_STR(e)); free(s1);} - } + { + if (s7_symbol_local_value(sc, s7_make_symbol(sc, "loaded_var"), e) == s7_undefined(sc)) + {fprintf(stderr, "%d: load ~/ffitest.scm unhappy? %s\n", __LINE__, s1 = TO_STR(e)); free(s1);} + } val = s7_load(sc, "/home/bil/snd-motif/"); if (val) fprintf(stderr, "s7_load(directory) did not fail?\n"); -- 2.20.1