Changeset 39681 in project

Timestamp:

03/12/21 23:08:35 (6 weeks ago)

Author:

Kon Lovett

Message:

reorg, strict

Location:

release/5/srfi-45/trunk

Files:

• srfi-45.egg (modified) (1 diff)
• srfi-45.scm (modified) (3 diffs)

release/5/srfi-45/trunk/srfi-45.egg

@@ -12 +12 @@
   (extension srfi-45
     (types-file)
-    (csc-options
-      ;"-disable-interrupts" ;C4 ??
-      "-O3" "-d1" "-no-procedure-checks") ) ) )
+    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks") ) ) )

release/5/srfi-45/trunk/srfi-45.scm

@@ -34 +34 @@
   check-errors)
 
-;unsafe
+;very unsafe
 (include "chicken-primitive-object-inlines")
 
@@ -114 +114 @@
   (%promise-box-value-set! promise-box promise) )
 
-;;
+;; Use SRFI 45 strict semantics for lazy promise
+
+(define lazy-strict (make-parameter #t))
+
+;; Constructors
 
 (define (*make-lazy-promise thunk)  (%make-lazy-promise thunk))
 (define (*make-eager-promise thunk) (%make-eager-promise (call-with-values thunk list)))
-
-;; Constructors
 
 (define-syntax lazy
@@ -135 +137 @@
 ;; Predicates
 
+(define (promise? obj) (or (r5rs:promise? obj) (%recursive-promise? obj)))
+
 (define (lazy-promise? obj)       (%lazy-promise? obj))
 (define (eager-promise? obj)      (%eager-promise? obj))
 (define (recursive-promise? obj)  (%recursive-promise? obj))
 
-(define (promise? obj) (or (r5rs:promise? obj) (%recursive-promise? obj)))
-
-;; Use SRFI 45 strict semantics for lazy promise
-
-(define lazy-strict (make-parameter #t (lambda (x) (%->boolean x))))
-
 ;; What kinda promise
 
-#; ;FIXME this doesn't work
+;FIXME this doesn't work
 (define-record-printer (recursive-promise obj out)
   (display "#<" out)