Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

adding unambiguous promise? to core

Browse source
This commit is contained in:
Alex Shinn 2017-11-08 22:56:02 +09:00
parent 887100b8ab
commit bc3fa73ec4
2 changed files with 5 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/init-7.scm
View file

@ -1079,8 +1079,11 @@
(auto-force (auto-force
) )
(else (else
(define *promise-tag* (list 'promise))
(define (promise done? proc) (define (promise done? proc)
(list (cons done? proc))) (cons (cons done? proc) *promise-tag*))
(define (promise? x)
(and (pair? x) (eq? *promise-tag* (cdr x))))
(define (promise-done? x) (car (car x))) (define (promise-done? x) (car (car x)))
(define (promise-value x) (cdr (car x))) (define (promise-value x) (cdr (car x)))
(define (promise-update! new old) (define (promise-update! new old)

14
lib/scheme/lazy.sld
View file

@ -4,16 +4,4 @@
(export delay force delay-force make-promise promise?) (export delay force delay-force make-promise promise?)
(begin (begin
(define (make-promise x) (define (make-promise x)
(delay x))) (delay x))))
(cond-expand
(auto-force
)
(else
(begin
(define (promise? x)
(and (pair? x)
(null? (cdr x))
(pair? (car x))
(or (eq? #t (caar x))
(and (eq? #f (caar x))
(procedure? (cdar x))))))))))