diff --git a/Makefile b/Makefile index 82189a3c..28a6b2b8 100644 --- a/Makefile +++ b/Makefile @@ -174,6 +174,7 @@ runtime.o : runtime.c $(HEADERS) $(CCOMP) -c \ -DCYC_INSTALL_DIR=\"$(PREFIX)\" \ -DCYC_INSTALL_LIB=\"$(LIBDIR)\" \ + -DCYC_INSTALL_BIN=\"$(BINDIR)\" \ -DCYC_INSTALL_INC=\"$(INCDIR)\" \ -DCYC_INSTALL_SLD=\"$(DATADIR)\" \ -DCYC_CC_PROG=\"$(CC_PROG)\" \ diff --git a/runtime.c b/runtime.c index 682ce1ea..5af65d43 100644 --- a/runtime.c +++ b/runtime.c @@ -2561,6 +2561,12 @@ object Cyc_installation_dir(void *data, object cont, object type) snprintf(buf, sizeof(buf), "%s", CYC_INSTALL_LIB); make_utf8_string(data, str, buf); _return_closcall1(data, cont, &str); + } else if (Cyc_is_symbol(type) == boolean_t && + strncmp(((symbol) type)->desc, "bin", 5) == 0) { + char buf[1024]; + snprintf(buf, sizeof(buf), "%s", CYC_INSTALL_BIN); + make_utf8_string(data, str, buf); + _return_closcall1(data, cont, &str); } else if (Cyc_is_symbol(type) == boolean_t && strncmp(((symbol) type)->desc, "inc", 5) == 0) { char buf[1024];