list/equal?

Summary

#t if A and B are equal

Bytecode

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

(    0 ($push/val :pair))
(    2 ($get/val 'type-of))
(    4 ($get/val 'a))
(    6 ($apply 1))
(    8 ($=))
(    9 ($jf* 31))
(   12 ($get/val 'list/equal?))
(   14 ($get/val 'a))
(   16 ($car))
(   17 ($get/val 'b))
(   19 ($car))
(   20 ($apply 2))
(   22 ($dup))
(   23 ($jf* 14))
(   26 ($drop))
(   27 ($get/val 'list/equal?))
(   29 ($get/val 'a))
(   31 ($cdr))
(   32 ($get/val 'b))
(   34 ($cdr))
(   35 ($apply 2))
(   37 ($jmp* 11))
(   40 ($get/val 'equal?))
(   42 ($get/val 'a))
(   44 ($get/val 'b))
(   46 ($apply 2))
(   48 ($ret))