Want more features on Pastebin? Sign Up, it's FREE!
Guest

Robert Fisher

By: a guest on Mar 5th, 2009  |  syntax: Scheme  |  size: 0.32 KB  |  views: 361  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
This paste has a previous version, view the difference. Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. #!r6rs
  2. (import (rnrs))
  3.  
  4. (define text '("#!r6rs\n(import (rnrs))\n(define text '"
  5.                #f
  6.                ")\n(for-each(lambda(item)(if item(display item)(write text)))text)\n"))
  7.  
  8. (for-each (lambda (item)
  9.             (if item
  10.                 (display item)
  11.                 (write text)))
  12.           text)
clone this paste RAW Paste Data