62 lines
1.9 KiB
Racket
62 lines
1.9 KiB
Racket
#lang scribble/lp2
|
|
@(require "../lib/doc.rkt")
|
|
@doc-lib-setup
|
|
|
|
@section{Uninterned tags}
|
|
|
|
@section{Conclusion}
|
|
|
|
@chunk[<*>
|
|
(begin
|
|
(module main typed/racket
|
|
(require (for-syntax racket/list
|
|
syntax/parse
|
|
syntax/parse/experimental/template
|
|
racket/syntax
|
|
(submod "../lib/low.rkt" untyped))
|
|
"../lib/low.rkt"
|
|
"../type-expander/multi-id.lp2.rkt"
|
|
"../type-expander/type-expander.lp2.rkt"
|
|
"structure.lp2.rkt")
|
|
(provide (rename-out [Tagged-predicate? Tagged?]
|
|
[Tagged-type TaggedTop])
|
|
Tagged-value
|
|
constructor
|
|
define-variant
|
|
define-private-tagged
|
|
define-private-constructor)
|
|
|
|
<variant-supertype>
|
|
<remember-tags>
|
|
<named-sorted-tags>
|
|
<declare-all-tags>
|
|
<tag-name→stx-name>
|
|
|
|
<predicate>
|
|
<constructor>
|
|
<define-variant>
|
|
<tagged>
|
|
<define-tagged>
|
|
<define-uninterned-tagged>
|
|
<define-uninterned-constructor>
|
|
|
|
(module+ test-helpers
|
|
#;(provide Tagged-value)))
|
|
|
|
(require 'main)
|
|
(provide (all-from-out 'main))
|
|
|
|
(module* test typed/racket
|
|
(require (submod "..")
|
|
(submod ".." main test-helpers)
|
|
typed/rackunit
|
|
"../lib/low.rkt"
|
|
"../type-expander/type-expander.lp2.rkt")
|
|
|
|
<test-constructor>
|
|
<test-define-variant>
|
|
<test-tagged>
|
|
<test-define-tagged>
|
|
<test-uninterned-tagged>
|
|
<test-uninterned-constructor>))]
|