~ chicken-core (chicken-5) 6892f09b72e0bff53a9b91941bdd5bf94444dfe1

commit 6892f09b72e0bff53a9b91941bdd5bf94444dfe1
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 11 21:38:49 2023 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 11 21:38:49 2023 +0200

    Fix handling of bwp immediate nodes in backend introduced during compilation,
    update comment

diff --git a/c-backend.scm b/c-backend.scm
index ac063284..50c4aa55 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -118,6 +118,7 @@
 	       ((nil) (gen "C_SCHEME_END_OF_LIST"))
 	       ((fix) (gen "C_fix(" (second params) #\)))
 	       ((eof) (gen "C_SCHEME_END_OF_FILE"))
+	       ((bwp) (gen "C_SCHEME_BROKEN_WEAK_PTR"))
 	       (else (bomb "bad immediate")) ) )
 
 	    ((##core#literal) 
diff --git a/core.scm b/core.scm
index bf8ada8e..2ed72855 100644
--- a/core.scm
+++ b/core.scm
@@ -229,7 +229,7 @@
 ; [##core#setglobal {<literal> <block-mode> <name>} <exp>]
 ; [##core#setglobal_i {<literal> <block-mode> <name>} <exp>]
 ; [##core#literal {<literal>}]
-; [##core#immediate {<type> [<immediate>]}]     - type: bool/fix/nil/char
+; [##core#immediate {<type> [<immediate>]}]     - type: bool/fix/nil/char/bwp
 ; [##core#proc {<name> [<non-internal>]}]
 ; [##core#provide <literal>]
 ; [##core#recurse {<tail-flag> <call-id>} <exp1> ...]