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
(require (for-syntax racket/base racket/syntax)
racket/class
racket/promise
racket/dict)
(require racket/class (for-syntax racket/base racket/syntax) racket/dict)
(provide (all-defined-out))
@ -47,7 +44,7 @@
(define ·-helper
(procedure-rename
(λ (x . refs)
(for/fold ([x (force x)])
(for/fold ([x x])
([ref (in-list refs)]
#:break (not x))
(cond
@ -86,7 +83,7 @@
(field [foo 'field])
(define/public (bar) 'method)
(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))
(check-equal? (· o foo) 'field)
(check-equal? (· o bar) 'method)

Loading…
Cancel
Save