From 7368cf15aea43f93d804101918d3d2c1b8fc1217 Mon Sep 17 00:00:00 2001
From: mesheets <16882600+mesheets@users.noreply.github.com>
Date: Sat, 20 Jul 2024 09:49:07 -0400
Subject: [PATCH] Test referencing defines from C within XS:Lisp

---
 xs/lisp/front.c | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/xs/lisp/front.c b/xs/lisp/front.c
index e66be0a..c428a65 100644
--- a/xs/lisp/front.c
+++ b/xs/lisp/front.c
@@ -28,6 +28,9 @@
 
 #include "object.h"
 
+// Kernel includes
+#include "../../include/dmusic.h"
+
 // Command-line argument processing
 #if (defined(__sun__) && defined(__svr4__)) || defined(BSD)	// Solaris||BSD
 #undef HAVE_GETOPT_LONG
@@ -1082,6 +1085,9 @@ void initReader() {
 	defReaderConstant("stdout", 1);
 	defReaderConstant("stderr", 2);
 
+	defReaderConstant("pause", PITCH_PAUSE);
+	defReaderConstant("rest",  PITCH_REST);
+
 	defReaderConstant("A0", 0);
 	defReaderConstant("Am0", 1);
 	defReaderConstant("H0", 2);
@@ -1277,8 +1283,7 @@ void initReader() {
 	defReaderConstant("So8", 94);
 	defReaderConstant("So#8", 95);
 	defReaderConstant("La8", 96);
-
-	defReaderConstant("pause", 97);
+   
 }
 
 // The Printer