Mercurial > urweb
view tests/case.ur @ 2174:ce312cad5ecd
Use correct OpenSSL thread safety macros on OS X (closes #209)
Create an Autoconf test to determine if pthread_t is a pointer or scalar
type, and use the appropriate CRYPTO_THREADID_set macro based on the
result.
author | Benjamin Barenblat <bbaren at mit.edu> |
---|---|
date | Sun, 20 Sep 2015 17:46:07 -0400 |
parents | 71bafe66dbe1 |
children |
line wrap: on
line source
datatype t = A | B val swap = fn x : t => case x of A => B | B => A datatype u = C of t | D val out = fn x : u => case x of C y => y | D => A datatype nat = O | S of nat val is_two = fn x : nat => case x of S (S O) => A | _ => B val zero_is_two = is_two O val one_is_two = is_two (S O) val two_is_two = is_two (S (S O))