- when ('SBCL') {
- system 'sbcl', '--noinform', '--eval', qq/(compile-file "$name")/, '--quit' and die "sbcl failed: errno=$! return=$?";
- rename "$basename.fasl", $basename;
+ exec 'rustc', qw/-O -o/, $basename, $name when 'RUST';
+ exec 'ocamlc', qw/-o/, $basename, $name when 'OCAML';
+
+ when ('BRAINFUCK') {
+ system 'bfc', $name and die "bfc failed: errno=$! return=$?";
+ rename "a.out", $basename;