$apply/optimize?

fun arg-count

Warning

This function is declared internal, so there are no guarantees whatsoever regarding its existence or functionality.

Have fun playing around with the internals but please try not to use any of these in any library or application.

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 ($let))
(    1 ($get/val 'fun))
(    3 ($det/val 'ΓεnΣym-1))
(    5 ($drop))
(    6 ($get/val 'ΓεnΣym-1))
(    8 ($get/val '+))
(   10 ($=))
(   11 ($dup))
(   12 ($jt* 56))
(   15 ($drop))
(   16 ($get/val 'ΓεnΣym-1))
(   18 ($get/val '-))
(   20 ($=))
(   21 ($dup))
(   22 ($jt* 46))
(   25 ($drop))
(   26 ($get/val 'ΓεnΣym-1))
(   28 ($get/val '*))
(   30 ($=))
(   31 ($dup))
(   32 ($jt* 36))
(   35 ($drop))
(   36 ($get/val 'ΓεnΣym-1))
(   38 ($get/val '/))
(   40 ($=))
(   41 ($dup))
(   42 ($jt* 26))
(   45 ($drop))
(   46 ($get/val 'ΓεnΣym-1))
(   48 ($get/val 'rem))
(   50 ($=))
(   51 ($dup))
(   52 ($jt* 16))
(   55 ($drop))
(   56 ($get/val 'ΓεnΣym-1))
(   58 ($get/val 'bytecode-eval*))
(   60 ($=))
(   61 ($dup))
(   62 ($jt* 6))
(   65 ($drop))
(   66 ($push/val #f))
(   68 ($jf* 11))
(   71 ($get/val 'arg-count))
(   73 ($push/int/byte 2))
(   75 ($=))
(   76 ($jmp* 123))
(   79 ($get/val 'ΓεnΣym-1))
(   81 ($get/val 'zero?))
(   83 ($=))
(   84 ($dup))
(   85 ($jt* 106))
(   88 ($drop))
(   89 ($get/val 'ΓεnΣym-1))
(   91 ($get/val 'car))
(   93 ($=))
(   94 ($dup))
(   95 ($jt* 96))
(   98 ($drop))
(   99 ($get/val 'ΓεnΣym-1))
(  101 ($get/val 'cdr))
(  103 ($=))
(  104 ($dup))
(  105 ($jt* 86))
(  108 ($drop))
(  109 ($get/val 'ΓεnΣym-1))
(  111 ($get/val 'add/int))
(  113 ($=))
(  114 ($dup))
(  115 ($jt* 76))
(  118 ($drop))
(  119 ($get/val 'ΓεnΣym-1))
(  121 ($get/val 'inc/int))
(  123 ($=))
(  124 ($dup))
(  125 ($jt* 66))
(  128 ($drop))
(  129 ($get/val 'ΓεnΣym-1))
(  131 ($get/val 'cons))
(  133 ($=))
(  134 ($dup))
(  135 ($jt* 56))
(  138 ($drop))
(  139 ($get/val 'ΓεnΣym-1))
(  141 ($get/val '<))
(  143 ($=))
(  144 ($dup))
(  145 ($jt* 46))
(  148 ($drop))
(  149 ($get/val 'ΓεnΣym-1))
(  151 ($get/val '<=))
(  153 ($=))
(  154 ($dup))
(  155 ($jt* 36))
(  158 ($drop))
(  159 ($get/val 'ΓεnΣym-1))
(  161 ($get/val '=))
(  163 ($=))
(  164 ($dup))
(  165 ($jt* 26))
(  168 ($drop))
(  169 ($get/val 'ΓεnΣym-1))
(  171 ($get/val '>=))
(  173 ($=))
(  174 ($dup))
(  175 ($jt* 16))
(  178 ($drop))
(  179 ($get/val 'ΓεnΣym-1))
(  181 ($get/val '>))
(  183 ($=))
(  184 ($dup))
(  185 ($jt* 6))
(  188 ($drop))
(  189 ($push/val #f))
(  191 ($jf* 7))
(  194 ($push/true))
(  195 ($jmp* 4))
(  198 ($push/nil))
(  199 ($closure/pop))
(  200 ($ret))