@@ -247,30 +247,30 @@ Now, we won't go so far as to @emph{give} you the code for
247247
248248@itemlist[
249249
250- @item{@racket[(abs 1 )] parses as @racket[(Prim1 'abs (Int 1 ))],}
250+ @item{@racket[(abs 1 )] parses as @racket[(Prim1 'abs (Lit 1 ))],}
251251
252- @item{@racket[(not #t )] parses as @racket[(Prim1 'not (Bool #t ))],}
252+ @item{@racket[(not #t )] parses as @racket[(Prim1 'not (Lit #t ))],}
253253
254- @item{@racket[(cond [else 5 ])] parses as @racket[(Cond '() (Int 5 ))],}
254+ @item{@racket[(cond [else 5 ])] parses as @racket[(Cond '() (Lit 5 ))],}
255255
256256@item{@racket[(cond [(not #t ) 3 ] [else 5 ])] parses as @racket[(Cond
257- (list (Clause (Prim1 'not (Bool #t )) (Int 3 ))) (Int 5 ))],}
257+ (list (Clause (Prim1 'not (Lit #t )) (Lit 3 ))) (Lit 5 ))],}
258258
259259@item{@racket[(cond [(not #t ) 3 ] [7 4 ] [else 5 ])] parses as
260- @racket[(Cond (list (Clause (Prim1 'not (Bool #t )) (Int 3 )) (Clause
261- (Int 7 ) (Int 4 ))) (Int 5 ))],}
260+ @racket[(Cond (list (Clause (Prim1 'not (Lit #t )) (Lit 3 )) (Clause
261+ (Lit 7 ) (Lit 4 ))) (Lit 5 ))],}
262262
263263@item{@racket[(case (add1 3 ) [else 2 ])] parses as @racket[(Case (Prim1
264- 'add1 (Int 3 )) '() (Int 2 ))].}
264+ 'add1 (Lit 3 )) '() (Lit 2 ))].}
265265
266- @item{@racket[(case 4 [(4 ) 1 ] [else 2 ])] parses as @racket[(Case (Int
267- 4 ) (list (Clause (list 4 ) (Int 1 ))) (Int 2 ))],}
266+ @item{@racket[(case 4 [(4 ) 1 ] [else 2 ])] parses as @racket[(Case (Lit
267+ 4 ) (list (Clause (list 4 ) (Lit 1 ))) (Lit 2 ))],}
268268
269- @item{@racket[(case 4 [(4 5 6 ) 1 ] [else 2 ])] parses as @racket[(Case (Int
270- 4 ) (list (Clause (list 4 5 6 ) (Int 1 ))) (Int 2 ))], and }
269+ @item{@racket[(case 4 [(4 5 6 ) 1 ] [else 2 ])] parses as @racket[(Case (Lit
270+ 4 ) (list (Clause (list 4 5 6 ) (Lit 1 ))) (Lit 2 ))], and }
271271
272- @item{@racket[(case 4 [(4 5 6 ) 1 ] [(#t #f ) 7 ] [else 2 ])] parses as @racket[(Case (Int
273- 4 ) (list (Clause (list 4 5 6 ) (Int 1 )) (Clause (list #t #f ) (Int 7 ))) (Int 2 ))].}
272+ @item{@racket[(case 4 [(4 5 6 ) 1 ] [(#t #f ) 7 ] [else 2 ])] parses as @racket[(Case (Lit
273+ 4 ) (list (Clause (list 4 5 6 ) (Lit 1 )) (Clause (list #t #f ) (Lit 7 ))) (Lit 2 ))].}
274274]
275275
276276
0 commit comments