48 lines
1.4 KiB
Plaintext
Executable File
48 lines
1.4 KiB
Plaintext
Executable File
(error-in-defn-of-module:
|
|
curry1
|
|
expected-type:
|
|
(struct:proc-iface
|
|
m2
|
|
(struct:simple-iface
|
|
((struct:opaque-type-decl t)
|
|
(struct:val-decl
|
|
d
|
|
(struct:proc-type (struct:named-type t) (struct:named-type t)))))
|
|
(struct:simple-iface
|
|
((struct:transparent-type-decl t (struct:qualified-type m2 t))
|
|
(struct:val-decl z (struct:named-type t))
|
|
(struct:val-decl
|
|
s
|
|
(struct:proc-type (struct:named-type t) (struct:named-type t)))
|
|
(struct:val-decl
|
|
d
|
|
(struct:proc-type (struct:named-type t) (struct:named-type t))))))
|
|
actual-type:
|
|
(struct:proc-iface
|
|
m2
|
|
(struct:simple-iface
|
|
((struct:transparent-type-decl t (struct:qualified-type ints-1 t))
|
|
(struct:val-decl
|
|
d
|
|
(struct:proc-type (struct:named-type t) (struct:named-type t)))))
|
|
(struct:simple-iface
|
|
((struct:transparent-type-decl t (struct:qualified-type ints-1 t))
|
|
(struct:val-decl z (struct:named-type t))
|
|
(struct:val-decl
|
|
s
|
|
(struct:proc-type (struct:named-type t) (struct:named-type t)))
|
|
(struct:val-decl
|
|
d
|
|
(struct:proc-type
|
|
(struct:named-type t)
|
|
(struct:named-type t)))))))
|
|
|
|
(define foo
|
|
(lambda (x y)
|
|
(cond
|
|
((eqv? x y) x)
|
|
((and (pair? x) (pair? y)
|
|
(= (length x) (length y))
|
|
(map foo x y))
|
|
(else '**))))
|