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 |