From 7d978b6c691e49ce0ceeb5c7d8fd01b78095a1a9 Mon Sep 17 00:00:00 2001
From: Denis Buzdalov <public@buzden.ru>
Date: Mon, 26 Dec 2022 18:52:00 +0300
Subject: [PATCH] [ improv ] Use direct `#!bwp`

---
 support/chez/support.ss | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/support/chez/support.ss b/support/chez/support.ss
index e8d23a8ede..b6384541a4 100644
--- a/support/chez/support.ss
+++ b/support/chez/support.ss
@@ -1,3 +1,5 @@
+#!chezscheme
+
 (define (blodwen-os)
   (case (machine-type)
     [(i3le ti3le a6le ta6le tarm64le) "unix"]  ; GNU/Linux
@@ -19,13 +21,8 @@
             (void))
         res))))
 
-(define bwp
-  (let ((x (cons 'a 'b)))
-    (let ((p (weak-cons x '())))
-      (begin (set! x '*) (collect) (car p)))))
-
 (define (blodwen-delay-lazy f)
-  (weak-cons bwp f))
+  (weak-cons #!bwp f))
 
 (define (blodwen-force-lazy e)
   (let ((exval (car e)))