doseq
for-loop bodyNo 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))