mirror of https://github.com/voidlizard/hbs2
bf6 pm test
This commit is contained in:
parent
fa7cdc14d5
commit
8ddc02560f
|
@ -48,3 +48,25 @@
|
||||||
( _ (print "whatever") )
|
( _ (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) )
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue