fork download
copy 
  1. (define (do_it n)
  2.   (define (print_it n)
  3.     (display n)
  4.     (newline))
  5.   (cond ((not(= n 42))
  6. 	(print_it n)
  7. 	(do_it (read)))
  8.     ))
  9.  
  10. (define (edit l)
  11.  (set! l "xx") 
  12.  )
  13. (
  14. (define v "s")
  15. (display v)
  16. (set! v "xx") 
  17. (display v)
  18.  
  19. (do_it (read))
  20. )
Runtime error #stdin #stdout 0.03s 4176KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
s
https://ideone.com/r4qiT
language:
Scheme (guile 2.2.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!