staged-test-tags.rkt

#lang racket/base

(provide (all-defined-out))

(define absento-tags0
  '(absento (struct _.0)))

(define not-tags0
  '(=/= ((_.0 struct))))

(define not-tags0+error
  '(=/= ((_.0 error)) ((_.0 struct))))

(define not-tags0+clo
  '(=/= ((_.0 clo)) ((_.0 struct))))