fork download
  1. #lang racket
  2.  
  3. (define-syntax mycompose
  4. (syntax-rules ()
  5. ((_) values)
  6. ((_ f1 f2 ...)
  7. (lambda (x . more)
  8. (call-with-values
  9. (thunk (apply (mycompose f2 ...) x more))
  10. f1)))))
  11.  
Runtime error #stdin #stdout #stderr 0.03s 4132KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
ERROR: Unbound variable: define-syntax