Revert "promises"

This reverts commit b22b907663.
dev-refac-2020
Matthew Butterick 6 years ago
parent b22b907663
commit dab922be52

@ -1,8 +1,5 @@
#lang racket/base #lang racket/base
(require (for-syntax racket/base racket/syntax) (require racket/class (for-syntax racket/base racket/syntax) racket/dict)
racket/class
racket/promise
racket/dict)
(provide (all-defined-out)) (provide (all-defined-out))
@ -47,7 +44,7 @@
(define ·-helper (define ·-helper
(procedure-rename (procedure-rename
(λ (x . refs) (λ (x . refs)
(for/fold ([x (force x)]) (for/fold ([x x])
([ref (in-list refs)] ([ref (in-list refs)]
#:break (not x)) #:break (not x))
(cond (cond
@ -86,7 +83,7 @@
(field [foo 'field]) (field [foo 'field])
(define/public (bar) 'method) (define/public (bar) 'method)
(define/public (zam) (hasheq 'zoom 'hash)))) (define/public (zam) (hasheq 'zoom 'hash))))
(define h (delay (hasheq 'bam (new C) 'foo 'hashlet))) (define h (hasheq 'bam (new C) 'foo 'hashlet))
(define o (new C)) (define o (new C))
(check-equal? (· o foo) 'field) (check-equal? (· o foo) 'field)
(check-equal? (· o bar) 'method) (check-equal? (· o bar) 'method)

Loading…
Cancel
Save