Merge remote-tracking branch 'chia/main' into 20240705-favor-hex

resources/tests/bin-quote.bin

@@ -0,0 +1 @@
+'test

src/compiler/preprocessor/mod.rs

@@ -199,7 +199,8 @@ impl Preprocessor {
         desc: IncludeDesc,
     ) -> Result<(), CompileErr> {
         let name_string = decode_string(&desc.name);
-        if KNOWN_DIALECTS.contains_key(&name_string) {
+        // Terminate early checking anything with a processed include type.
+        if KNOWN_DIALECTS.contains_key(&name_string) || desc.kind.is_some() {
             return Ok(());
         }
 

src/tests/classic/run.rs

@@ -2495,3 +2495,16 @@ fn test_include_zero_bin_pre_fix() {
     ]);
     assert_eq!(program, "(2 (1 14 (1 . 1) 2) (4 (1 . 1) 1))");
 }
+
+#[test]
+fn test_include_bin_should_not_be_parsed() {
+    let program = do_basic_run(&vec![
+        "run".to_string(),
+        "-i".to_string(),
+        "resources/tests".to_string(),
+        "(mod (X) (include *standard-cl-23.1*) (embed-file test bin bin-quote.bin) test)"
+            .to_string(),
+    ]);
+    let result = do_basic_brun(&vec!["brun".to_string(), program]);
+    assert_eq!(result.trim(), "\"'test\"");
+}