Add test case for PR 11747.
Closes PR 11747. This was fixed at some point. original commit: e4716bd68a31f790ab7b0616feb2d4aa63e68300
This commit is contained in:
parent
e1851074b7
commit
4ca82450a1
|
@ -0,0 +1,26 @@
|
|||
#lang typed/racket/base
|
||||
|
||||
(require racket/match racket/list)
|
||||
|
||||
(provide check-type-declarations)
|
||||
|
||||
(define-type type-declaration #t)
|
||||
(define-type type-environment #t)
|
||||
|
||||
(define-type dag (HashTable Symbol (U Symbol #f)))
|
||||
|
||||
(: check-type-declarations ((Listof type-declaration) type-environment -> Void))
|
||||
(define (check-type-declarations types env)
|
||||
(: compute-reference-dag ((Listof type-declaration) dag -> dag))
|
||||
(define (compute-reference-dag types dag)
|
||||
(compute-reference-dag types dag))
|
||||
|
||||
(: cycle-exists? (Symbol dag -> Boolean))
|
||||
(define (cycle-exists? symbol a-dag)
|
||||
(cycle-exists? symbol a-dag))
|
||||
|
||||
(: reference-dag dag)
|
||||
(: cycle Boolean)
|
||||
(define reference-dag (compute-reference-dag types (make-immutable-hash empty)))
|
||||
(define cycle (cycle-exists? 'name reference-dag))
|
||||
(void))
|
Loading…
Reference in New Issue
Block a user