list?

Summary

Return #t is A is a proper list

Bytecode

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

(    0 ($get/val 'a))
(    2 ($jf* 7))
(    5 ($push/nil))
(    6 ($jmp* 5))
(    9 ($push/false))
(   10 ($ret))
(   11 ($drop))
(   12 ($push/nil))
(   13 ($jmp* 28))
(   16 ($drop))
(   17 ($push/val :pair))
(   19 ($get/val 'type-of))
(   21 ($get/val 'a))
(   23 ($apply 1))
(   25 ($=))
(   26 ($jf* 7))
(   29 ($push/nil))
(   30 ($jmp* 5))
(   33 ($push/false))
(   34 ($ret))
(   35 ($drop))
(   36 ($get/val 'a))
(   38 ($cdr))
(   39 ($set/val 'a))
(   41 ($get/val 'a))
(   43 ($jt* -27))
(   46 ($drop))
(   47 ($push/true))
(   48 ($ret))
(   49 ($ret))