home
/
code
/
tiger.ml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix warnings: 4, 6, 29
[tiger.ml.git]
/
tiger
/
src
/
exe
/
tiger_tests.ml
diff --git
a/tiger/src/exe/tiger_tests.ml
b/tiger/src/exe/tiger_tests.ml
index
af707b0
..
3e97eec
100644
(file)
--- a/
tiger/src/exe/tiger_tests.ml
+++ b/
tiger/src/exe/tiger_tests.ml
@@
-33,7
+33,7
@@
let test_02 =
let \
type myint = int \
type arrtype = array of myint \
let \
type myint = int \
type arrtype = array of myint \
- var arr1:arrtype :=
+ var arr1:arrtype :=
\
arrtype [10] of 0 \
in \
arr1 \
arrtype [10] of 0 \
in \
arr1 \
@@
-98,8
+98,8
@@
let tokens_of_code code =
let lexbuf = Lexing.from_string code in
let rec tokens () =
match Tiger.Lexer.token lexbuf with
let lexbuf = Lexing.from_string code in
let rec tokens () =
match Tiger.Lexer.token lexbuf with
- |
Tiger.Parser.Token.EOF
-> []
- | token -> token :: tokens ()
+ |
None
-> []
+ |
Some
token -> token :: tokens ()
in
tokens ()
in
tokens ()
@@
-121,7
+121,7
@@
let () =
print_endline "OK";
with Assert_failure _ ->
let tokens_to_string tokens =
print_endline "OK";
with Assert_failure _ ->
let tokens_to_string tokens =
- String.concat "; " (List.map Tiger.Parser.Token.to_string tokens)
+ String.concat "; " (List.map
~f:
Tiger.Parser.Token.to_string tokens)
in
printf
"ERROR\n Expected: %s\n Emitted : %s\n\n"
in
printf
"ERROR\n Expected: %s\n Emitted : %s\n\n"
This page took
0.042905 seconds
and
4
git commands to generate.