From 8ddc02560fd78ca875218c5559c3cc435d483f57 Mon Sep 17 00:00:00 2001 From: voidlizard Date: Mon, 3 Mar 2025 22:10:27 +0300 Subject: [PATCH] bf6 pm test --- miscellaneous/suckless-conf/examples/pm/m1.ss | 22 +++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/miscellaneous/suckless-conf/examples/pm/m1.ss b/miscellaneous/suckless-conf/examples/pm/m1.ss index 5a90006b..726b2a96 100644 --- a/miscellaneous/suckless-conf/examples/pm/m1.ss +++ b/miscellaneous/suckless-conf/examples/pm/m1.ss @@ -48,3 +48,25 @@ ( _ (print "whatever") ) ) +(newline) + +(match 100 + ( [int? _] (print okay) ) + ( _ (print not-okay) ) +) + +(newline) + +(match 100 + ( [? a [int? _] ] (print okay :: a) ) + ( _ (print not-okay) ) +) + +(newline) + +(match :aaa + ( [? a [int? _] ] (print not-okay :: a) ) + ( _ (print okay) ) +) + +