Matthias asked me to remove this definition
svn: r15676
This commit is contained in:
parent
0646de8473
commit
8bee13c680
|
@ -1,6 +1,6 @@
|
||||||
#lang scheme
|
#lang scheme
|
||||||
|
|
||||||
(provide define-keywords function-with-arity except err check-flat-spec)
|
(provide define-keywords function-with-arity except err)
|
||||||
|
|
||||||
(require
|
(require
|
||||||
(for-template "syn-aux-aux.ss"
|
(for-template "syn-aux-aux.ss"
|
||||||
|
@ -38,9 +38,3 @@
|
||||||
(string-append "illegal specification: " (car extra-spec)))
|
(string-append "illegal specification: " (car extra-spec)))
|
||||||
#`(#,spec . #,p) p))
|
#`(#,spec . #,p) p))
|
||||||
|
|
||||||
;; Symbol (Symbol X -> X) -> (X -> X)
|
|
||||||
(define (check-flat-spec tag coerce>)
|
|
||||||
(lambda (p)
|
|
||||||
(syntax-case p ()
|
|
||||||
[(b) #'(coerce> tag b)]
|
|
||||||
[_ (err tag p)])))
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user