9 lines
121 B
Racket
9 lines
121 B
Racket
#lang racket/base
|
|
|
|
(require racket/unit
|
|
"qp-sig.rkt" net/qp)
|
|
|
|
(define-unit-from-context qp@ qp^)
|
|
|
|
(provide qp@)
|