Scheme 方案：如果函数返回true，则返回10

我试图实现一个部分，如果我的单独函数“write”（返回true或false）返回true，我希望它返回数字10

(define value 
  (lambda (p gs) 
    (cond 
     ((write? p gs) #t)
     10 
     else 0)))

我知道这是不正确的，因为我得到了错误，但这是它的骨架。 我想让它写什么？使用这些参数返回true，然后使用值返回10。 如果不是，则返回0

多谢各位

(cond
  ((write? p gs) 10)
  (else 0))