Skip to content

Commit

Permalink
[ improv ] Use direct #!bwp
Browse files Browse the repository at this point in the history
  • Loading branch information
buzden committed Dec 26, 2022
1 parent 247e608 commit 5429cc1
Showing 1 changed file with 3 additions and 6 deletions.
9 changes: 3 additions & 6 deletions support/chez/support.ss
Original file line number Diff line number Diff line change
@@ -1,3 +1,5 @@
#!chezscheme

(define (blodwen-os)
(case (machine-type)
[(i3le ti3le a6le ta6le tarm64le) "unix"] ; GNU/Linux
Expand All @@ -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)))
Expand Down

0 comments on commit 5429cc1

Please sign in to comment.