caml-urm

A OCaml module for manipulating unlimited register machines

git clone: git://git.pablopie.xyz/caml-urm
Log
Files
Refs
README
LICENSE

Commit: accf21fd370d049d1bb9df8ffde82d74c64aed18
Parent: f79f045ac15a7e507bf77c2d68a8ecefdbf815fc
Author: Pablo <pablo-escobar@riseup.net>
Date: Mon, 1 Nov 2021 16:35:08 +0000

Fixed minor typos in the parsing function

Diffstat

1 file changed, 3 insertions, 5 deletions

Status	File Name	N° Changes	Insertions	Deletions
Modified	urm.ml	8	3	5

diff --git a/urm.ml b/urm.ml
@@ -99,9 +99,7 @@ module Parse = struct
       if String.trim s <> "" then None
       else
         match Stream.npeek 8 (lex (Stream.of_string s)) with
-        | Some l -> 
-            Some (parse_instruction l)
-        | None -> 
-            raise (Syntax_error Prinf.sprintf "invalid syntax: %s" s)
-    in Array.of_list (filter_map (String.split_on_char '\n' s))
+        | Some l -> Some (parse_instruction l)
+        | None -> raise (Syntax_error (Prinf.sprintf "invalid syntax: %s" s))
+    in Array.of_list (List.filter_map f (String.split_on_char '\n' s))
 end