Clean open statements.

This commit is contained in:
Fabien Freling 2015-02-24 17:29:29 +01:00
parent 91ad537af9
commit dad26e3f4b
2 changed files with 1 additions and 3 deletions

View file

@ -1,6 +1,3 @@
open Unix
open Printf
(** http://bgb.bircd.org/pandocs.htm#thecartridgeheader *) (** http://bgb.bircd.org/pandocs.htm#thecartridgeheader *)

View file

@ -8,6 +8,7 @@ let power_up cartridge =
then print_endline "Invalid ROM." then print_endline "Invalid ROM."
else else
print_endline "Valid ROM."; print_endline "Valid ROM.";
printf "Title: %s\n" cartridge.title;
printf "ROM size: %iKB\n" cartridge.rom_size; printf "ROM size: %iKB\n" cartridge.rom_size;
printf "RAM size: %iKB\n" cartridge.ram_size printf "RAM size: %iKB\n" cartridge.ram_size