tangled
alpha
login
or
join now
ryan.freumh.org
/
merry
forked from
patrick.sirref.org/merry
0
fork
atom
Shells in OCaml
0
fork
atom
overview
issues
pulls
pipelines
Built_in: recognise 0 as EXIT for trap
Patrick Ferris
1 month ago
75013db3
a9f07be6
+1
1 changed file
expand all
collapse all
unified
split
src
lib
built_ins.ml
+1
src/lib/built_ins.ml
···
354
354
let s = String.lowercase_ascii s in
355
355
try
356
356
match int_of_string_opt s with
357
357
+
| Some 0 -> Ok `Exit
357
358
| Some n -> Ok (`Signal (Eunix.Signals.of_int n))
358
359
| None -> (
359
360
match s with