doseq

for-loop body


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 'gensym))
(    2 ($apply 0))
(    4 ($det/val 'symbol-name))
(    6 ($drop))
(    7 ($push/val 'let))
(    9 ($get/val 'symbol-name))
(   11 ($get/val 'for-loop))
(   13 ($cdr))
(   14 ($car))
(   15 ($push/nil))
(   16 ($cons))
(   17 ($cons))
(   18 ($push/nil))
(   19 ($cons))
(   20 ($push/val 'while))
(   22 ($get/val 'symbol-name))
(   24 ($push/val 'when-not))
(   26 ($push/val 'pair?))
(   28 ($get/val 'symbol-name))
(   30 ($push/nil))
(   31 ($cons))
(   32 ($cons))
(   33 ($push/val 'exception))
(   35 ($push/val :type-error))
(   37 ($push/val Improper list detected, please provide a proper list instead))
(   39 ($get/val 'for-loop))
(   41 ($cdr))
(   42 ($car))
(   43 ($push/nil))
(   44 ($cons))
(   45 ($cons))
(   46 ($cons))
(   47 ($cons))
(   48 ($push/nil))
(   49 ($cons))
(   50 ($cons))
(   51 ($cons))
(   52 ($push/val 'typecheck/only))
(   54 ($get/val 'symbol-name))
(   56 ($push/val :pair))
(   58 ($push/nil))
(   59 ($cons))
(   60 ($cons))
(   61 ($cons))
(   62 ($push/val 'def))
(   64 ($get/val 'for-loop))
(   66 ($car))
(   67 ($push/val 'car))
(   69 ($get/val 'symbol-name))
(   71 ($push/nil))
(   72 ($cons))
(   73 ($cons))
(   74 ($push/nil))
(   75 ($cons))
(   76 ($cons))
(   77 ($cons))
(   78 ($get/val 'append))
(   80 ($get/val 'body))
(   82 ($push/val 'cdr!))
(   84 ($get/val 'symbol-name))
(   86 ($push/nil))
(   87 ($cons))
(   88 ($cons))
(   89 ($push/nil))
(   90 ($cons))
(   91 ($apply 2))
(   93 ($cons))
(   94 ($cons))
(   95 ($cons))
(   96 ($cons))
(   97 ($cons))
(   98 ($get/val 'for-loop))
(  100 ($cdr))
(  101 ($cdr))
(  102 ($car))
(  103 ($push/nil))
(  104 ($cons))
(  105 ($cons))
(  106 ($cons))
(  107 ($cons))
(  108 ($ret))