← Back to branch summary

~rhcarvalho/+junk/racket

« back to all changes in this revision

Viewing changes to demo/ordered-items-slideshow.rkt

  • Committer: Rodolfo Carvalho
  • Date: 2011-11-13 15:03:20 UTC
  • mfrom: (50.1.7 racket)
  • Revision ID: rhcarvalho@gmail.com-20111113150320-lo1yqejh3qhs5ow2
Merge

Show diffs side-by-side

added added

removed removed

Lines of Context:
demo/ordered-items-slideshow.rkt
 
1
#lang slideshow
 
2
 
 
3
(define oitem
 
4
  (let ([i 0])
 
5
    (λ (txt)
 
6
      (set! i (add1 i))
 
7
      (item #:bullet (bt (format "~a." i)) txt))))
 
8
 
 
9
(oitem "Learn how to use Racket effectively")
 
10
(oitem "Change the world")
 
11
(oitem "Help people")
 
 
b'\\ No newline at end of file'