file/test/module/run

No documentation available

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 'module/import))
(    2 ($get/val 'module/load))
(    4 ($push/val :test))
(    6 ($get/val 'current-closure))
(    8 ($apply 0))
(   10 ($apply 2))
(   12 ($push/val 'run-test!))
(   14 ($apply 2))
(   16 ($det/val 'run-test!))
(   18 ($drop))
(   19 ($let))
(   20 ($get/val 'tests))
(   22 ($det/val 'ΓεnΣym-1))
(   24 ($drop))
(   25 ($push/nil))
(   26 ($jmp* 122))
(   29 ($drop))
(   30 ($push/val :pair))
(   32 ($get/val 'type-of))
(   34 ($get/val 'ΓεnΣym-1))
(   36 ($apply 1))
(   38 ($=))
(   39 ($jf* 7))
(   42 ($push/nil))
(   43 ($jmp* 21))
(   46 ($get/val 'throw))
(   48 ($get/val 'list))
(   50 ($push/val :type-error))
(   52 ($push/val Improper list detected, please provide a proper list instead))
(   54 ($get/val 'tests))
(   56 ($get/val 'current-lambda))
(   58 ($apply 0))
(   60 ($apply 4))
(   62 ($apply 1))
(   64 ($drop))
(   65 ($get/val 'type-of))
(   67 ($get/val 'ΓεnΣym-1))
(   69 ($apply 1))
(   71 ($push/val :pair))
(   73 ($=))
(   74 ($jf* 7))
(   77 ($push/nil))
(   78 ($jmp* 21))
(   81 ($get/val 'throw))
(   83 ($get/val 'list))
(   85 ($push/val :type-error))
(   87 ($push/val Expected a value of type :pair))
(   89 ($get/val 'ΓεnΣym-1))
(   91 ($get/val 'current-lambda))
(   93 ($apply 0))
(   95 ($apply 4))
(   97 ($apply 1))
(   99 ($drop))
(  100 ($get/val 'ΓεnΣym-1))
(  102 ($car))
(  103 ($det/val 'expr))
(  105 ($drop))
(  106 ($get/val 'run-test!))
(  108 ($get/val 'eval-in))
(  110 ($get/val 'current-closure))
(  112 ($apply 0))
(  114 ($get/val 'expr))
(  116 ($cdr))
(  117 ($car))
(  118 ($apply 2))
(  120 ($push/val 'do))
(  122 ($push/val 'require))
(  124 ($get/val 'module-name))
(  126 ($push/nil))
(  127 ($cons))
(  128 ($cons))
(  129 ($get/val 'append))
(  131 ($get/val 'expr))
(  133 ($cdr))
(  134 ($cdr))
(  135 ($push/nil))
(  136 ($apply 2))
(  138 ($cons))
(  139 ($cons))
(  140 ($apply 2))
(  142 ($drop))
(  143 ($get/val 'ΓεnΣym-1))
(  145 ($cdr))
(  146 ($set/val 'ΓεnΣym-1))
(  148 ($get/val 'ΓεnΣym-1))
(  150 ($jt* -121))
(  153 ($drop))
(  154 ($push/nil))
(  155 ($closure/pop))
(  156 ($ret))