Changeset 8869 in project


Ignore:
Timestamp:
02/24/08 22:58:06 (12 years ago)
Author:
Alaric Snell-Pym
Message:

Tried removing indentation within examples

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/tagged-begin

    r8860 r8869  
    1010
    1111<example>
    12   <init>(use tagged-begin)</init>
    13   <expr>(let ([i 0])
     12<init>(use tagged-begin)</init>
     13<expr>(let ([i 0])
    1414   (tagged-begin
    1515    loop (set! i (+ i 1))
    1616         (if (< i 41) (go loop)))
    1717   i)</expr>
    18    <result>41</result>
     18<result>41</result>
    1919</example>
    2020
     
    2222
    2323<example>
    24   <init>(use tagged-begin)</init>
    25   <expr>(let ([i 0])
     24<init>(use tagged-begin)</init>
     25<expr>(let ([i 0])
    2626   (tagged-begin
    2727    loop (set! i (+ i 1))
    2828         (if (< i 42) (go loop))
    2929         (return i)))</expr>
    30   <result>42</result>
     30<result>42</result>
    3131</example>
    3232
     
    3434
    3535<example>
    36   <init>(use tagged-begin)</init>
    37   <expr>(let ([i 0])
     36<init>(use tagged-begin)</init>
     37<expr>(let ([i 0])
    3838   (tagged-begin
    3939    loop (set! i (+ i 1))
     
    4242         (return i)
    4343    b    (go a)))</expr>
    44   <result>43</result>
     44<result>43</result>
    4545</example>
    4646
     
    4848
    4949<example>
    50   <init>(use tagged-begin)</init>
    51   <expr>(begin
     50<init>(use tagged-begin)</init>
     51<expr>(begin
    5252  (define (display/nl v)
    5353    (display v)
     
    7070     end
    7171      (display/nl "We're done printing the odd numbers between 0 and 10"))))</expr>
    72   <output>1
     72<output>1
    73733
    74745
     
    8181
    8282<example>
    83   <init>(use tagged-begin)</init>
    84   <expr>(begin
     83<init>(use tagged-begin)</init>
     84<expr>(begin
    8585
    8686  (define permutation (vector 'dummy 6 2 1 5 4 3))      ; (Knuth counts from 1 not 0 :-) )
     
    112112
    113113  permutation)</expr>
    114   <result>#(dummy 3 2 6 5 4 1)</result>
     114<result>#(dummy 3 2 6 5 4 1)</result>
    115115</example>
    116116
     
    118118
    119119<example>
    120   <init>(use tagged-begin)</init>
    121   <expr>(begin
     120<init>(use tagged-begin)</init>
     121<expr>(begin
    122122  (define val 'foo)
    123123  (tagged-begin
     
    143143
    144144  (list val (f1 #f) (f1 #t)))</expr>
    145   <result>(15 2 1)</result>
     145<result>(15 2 1)</result>
    146146</example>
    147147
     
    149149
    150150<example>
    151   <init>(use tagged-begin)</init>
    152   <expr>(tagged-begin
     151<init>(use tagged-begin)</init>
     152<expr>(tagged-begin
    153153 a (tagged-begin
    154154      (go b))
    155155 b (return 'hello-world))</expr>
    156   <result>hello-world</result>
     156<result>hello-world</result>
    157157</example>
    158158
     
    160160
    161161<example>
    162   <init>(use tagged-begin)</init>
    163   <expr>(tagged-begin
     162<init>(use tagged-begin)</init>
     163<expr>(tagged-begin
    164164 a (tagged-begin
    165165        (go b)
     
    168168 b (return 'wrong)
    169169 c (return 'correct))</expr>
    170   <result>correct</result>
     170<result>correct</result>
    171171</example>
    172172
     
    174174
    175175<example>
    176   <init>(use tagged-begin)</init>
    177   <expr>(pp (macroexpand
     176<init>(use tagged-begin)</init>
     177<expr>(pp (macroexpand
    178178  '(tagged-begin
    179179       (set! val 1)
     
    186186       (set! val (+ val 64))
    187187 b     (set! val (+ val  8)))))</expr>
    188  <output>((call/cc
     188<output>((call/cc
    189189    (lambda (go)
    190190      (let ((return (lambda (v) (go (lambda () v)))))
Note: See TracChangeset for help on using the changeset viewer.