fork download
  1. (define double
  2. (lambda (x)
  3. (+ x x)))
  4.  
  5. (define getTwelve
  6. ((((lambda (x)
  7. (lambda (y)
  8. (display y)
  9. (newline)
  10. (x (x y))))
  11. double) 3)))
  12.  
  13. (display getTwelve)
Runtime error #stdin #stdout #stderr 0s 18080KB
stdin
Standard input is empty
stdout
3
stderr
Error: call of non-procedure: 12

	Call history:

	<syntax>	  (##core#lambda (y) (display y) (newline) (x (x y)))
	<syntax>	  (##core#begin (display y) (newline) (x (x y)))
	<syntax>	  (display y)
	<syntax>	  (newline)
	<syntax>	  (##core#begin (x (x y)))
	<syntax>	  (x (x y))
	<syntax>	  (x y)
	<eval>	  ((((lambda (x) (lambda (y) (display y) (newline) (x (x y)))) double) 3))
	<eval>	  (((lambda (x) (lambda (y) (display y) (newline) (x (x y)))) double) 3)
	<eval>	  ((lambda (x) (lambda (y) (display y) (newline) (x (x y)))) double)
	<eval>	  (display y)
	<eval>	  (newline)
	<eval>	  (x (x y))
	<eval>	  (x y)
	<eval>	  [double] (+ x x)
	<eval>	  [double] (+ x x)	<--