path/ext?!

ext

Summary

Return a predicate that checks if a path ends on EXT

Bytecode

Probably only interesting to you if you want to understand more about the Nujel VM or care very much about performance.

(    0 ($let))
(    1 ($get/val 'type-of))
(    3 ($get/val 'ext))
(    5 ($apply 1))
(    7 ($det/val 'ΓεnΣym-1))
(    9 ($drop))
(   10 ($get/val 'ΓεnΣym-1))
(   12 ($push/val :string))
(   14 ($=))
(   15 ($jf* 15))
(   18 ($push/val 'anonymous))
(   20 ($push/val (path)))
(   22 ($push/val #@()))
(   24 ($push/val #{##(ext lower-case path/extension path)
0E000E010E020E03040104012001
}))
(   26 ($fn/dynamic))
(   27 ($jmp* 41))
(   30 ($get/val 'ΓεnΣym-1))
(   32 ($push/val :pair))
(   34 ($=))
(   35 ($jf* 15))
(   38 ($push/val 'anonymous))
(   40 ($push/val (path)))
(   42 ($push/val #@()))
(   44 ($push/val #{##(lower-case path/extension path cext reduce ext anonymous (α β) #@() #{##(α β cext #f)
0E000C0A00100D0E010E02200C0A00060D1A0301
})
0E000E010E020401040107030D0E040E051A061A071A081A0917040201
}))
(   46 ($fn/dynamic))
(   47 ($jmp* 21))
(   50 ($get/val 'throw))
(   52 ($get/val 'list))
(   54 ($push/val :type-error))
(   56 ($push/val Expected a :string or :list))
(   58 ($get/val 'ext))
(   60 ($get/val 'current-lambda))
(   62 ($apply 0))
(   64 ($apply 4))
(   66 ($apply 1))
(   68 ($closure/pop))
(   69 ($ret))