From 4d3ba9322d6b3b98a35359f36c39297fb2b6e6d5 Mon Sep 17 00:00:00 2001
From: Devyn Cairns <devyn.cairns@gmail.com>
Date: Wed, 16 Aug 2023 09:06:24 -0700
Subject: [PATCH] add option to shutdown from makefile

---
 stage1/words.s | 6 ++++++
 stage2/make.mk | 3 +++
 2 files changed, 9 insertions(+)

diff --git a/stage1/words.s b/stage1/words.s
index 147a439..0ff5b49 100644
--- a/stage1/words.s
+++ b/stage1/words.s
@@ -284,6 +284,12 @@ INITIAL_WORDS:
         .ascii "words$"
         .balign 8
 
+        .quad shutdown
+        .byte 9
+        .byte LISP_OBJECT_TYPE_INTEGER
+        .ascii "shutdown$"
+        .balign 8
+
         # end
         .quad 0
         .quad 0
diff --git a/stage2/make.mk b/stage2/make.mk
index 085113c..63ed654 100644
--- a/stage2/make.mk
+++ b/stage2/make.mk
@@ -1,6 +1,9 @@
 stage2.lsp: $(wildcard stage2/*.lsp)
 	# strip comments
 	sed -E '/^ *(;.*)?$$/d' $^ > stage2.lsp
+	if [[ "${SHUTDOWN}" == 1 ]]; then \
+		echo "(call-native shutdown$$ 0)" >> stage2.lsp \
+	fi
 
 clean-stage2:
 	rm -f stage2.lsp