|
|
|
@ -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)
|
|
|
|
|