View difference between Paste ID: f1c8575a1 and
SHOW:
|
|
- or go back to the newest paste.
| 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) | |
| 13 | ||
| 14 |
