java scheme_Scheme中的Scheme返回对

嗨我得到错误mcar： Contract 违规期待：mpair？给出:()运行这些代码时：

(define helpy

(lambda (y listz)

(map (lambda (z) (list y z))

listz)))

(define print

(lambda (listy)

(cond

((null? list) (newline))

(#t (helpy (car listy) (cdr listy))

(print (cdr listy))))))

我的代码试图在列表中返回对 . 例如，当我调用 (print '(a b c)) 时，它应该返回 ((a b) (a c) (b c)) .

我只修复并更新了我的代码，现在它不会返回错误但我只能在运行这些代码时获得对((a b)(a c)：

(定义帮助

(lambda(y listz)

( Map (lambda(z)(list y z))

listz)))

(定义打印

(lambda(listy)

(条件

((null？listy)(换行符))

(#t(helpy(car listy)(cdr listy)))

(print (cdr listy)))))

我认为我的递归有问题