15 lines
425 B
Racket
15 lines
425 B
Racket
#lang scheme/base
|
|
(require deinprogramm/signature/signature-unit
|
|
racket/unit)
|
|
|
|
(provide-signature-elements signatures^)
|
|
|
|
(define recursive-signature-message "rekursive Signatur")
|
|
(define parameter-count-mismatch-message "falsche Anzahl von Parametern")
|
|
(define argument-count-mismatch-message "falsche Anzahl von Argumenten")
|
|
|
|
(define-values/invoke-unit signatures@
|
|
(import signature-messages^)
|
|
(export signatures^))
|
|
|