[ fix ] Restore blodwen-force, which is used only for scheme evaluator

src/Compiler/Scheme/Common.idr

@@ -561,7 +561,7 @@ parameters (constants : SortedSet Name,
         = schOp op !(schArgs i args)
     schExp i (NmExtPrim fc p args)
         = schExtPrim i (toPrim p) args
-    schExp i (NmForce fc lr t) = pure $ "(blodwen-force " ++ !(schExp i t) ++ ")"
+    schExp i (NmForce fc lr t) = pure $ "(blodwen-force-lazy " ++ !(schExp i t) ++ ")"
     schExp i (NmDelay fc lr t) = pure $ "(blodwen-delay-lazy (lambda () " ++ !(schExp i t) ++ "))"
     schExp i (NmConCase fc sc alts def)
         = cond [(recordCase alts, schRecordCase i sc alts def),

support/chez/support.ss

@@ -27,7 +27,7 @@
 (define (blodwen-delay-lazy f)
   (weak-cons bwp f))
 
-(define (blodwen-force e)
+(define (blodwen-force-lazy e)
   (let ((exval (car e)))
     (if (bwp-object? exval)
       (let ((val ((cdr e))))
@@ -435,7 +435,7 @@
 (define (blodwen-make-future work)
   (let ([future (make-future-internal #f #f (make-mutex) (make-condition))])
     (fork-thread (lambda ()
-      (let ([result (blodwen-force work)])
+      (let ([result (blodwen-force-lazy work)])
         (with-mutex (future-internal-mutex future)
           (set-future-internal-result! future result)
           (set-future-internal-ready! future #t)
@@ -589,6 +589,9 @@
 (define (blodwen-apply obj arg)
   (obj arg))
 
+(define (blodwen-force obj)
+  (obj))
+
 (define (blodwen-read-symbol sym)
   (symbol->string sym))
 

support/gambit/support.scm

@@ -28,7 +28,7 @@
 (define (blodwen-delay-lazy f)
   f)
 
-(define (blodwen-force f)
+(define (blodwen-force-lazy f)
   (f))
 
 (define (blodwen-toSignedInt x bits)

support/racket/support.rkt

@@ -21,7 +21,7 @@
 (define (blodwen-delay-lazy f)
   (mcons (make-weak-box bwp) f))
 
-(define (blodwen-force e)
+(define (blodwen-force-lazy e)
   (let ((exval (weak-box-value (mcar e) bwp)))
     (if (eq? exval bwp)
       (let ((val ((mcdr e))))
@@ -455,7 +455,7 @@
 ;   )
 
 
-(define (blodwen-make-future work) (future (lambda () (blodwen-force work))))
+(define (blodwen-make-future work) (future (lambda () (blodwen-force-lazy work))))
 (define (blodwen-await-future ty future) (touch future))
 
 ;; NB: These should *ALWAYS* be used in multi-threaded programs since Racket
@@ -580,6 +580,9 @@
 (define (blodwen-apply obj arg)
   (obj arg))
 
+(define (blodwen-force obj)
+  (obj))
+
 (define (blodwen-read-symbol sym)
   (symbol->string sym))