Merge pull request #200 from sogaiu/am-ref-table-tweaks

Tweak abstract machine reference table - address #194, #196, and #198

content/docs/gen-asm-table.janet

@@ -17,15 +17,16 @@
    ['cmp '(cmp dest lhs rhs) "$dest = janet_compare($lhs, $rhs)"]
    ['cncl '(cncl dest fiber err) "Resume fiber, but raise error immediately"]
    ['div '(div dest lhs rhs) "$dest = $lhs / $rhs"]
+   ['divf '(divf dest lhs rhs) "$dest = floor($lhs / $rhs)"]
    ['divim '(divim dest lhs im) "$dest = $lhs / im"]
    ['eq '(eq dest lhs rhs) "$dest = $lhs == $rhs"]
    ['eqim '(eqim dest lhs im) "$dest = $lhs == im"]
    ['err '(err message) "Throw error $message."]
    ['get '(get dest ds key) "$dest = $ds[$key]"]
    ['geti '(geti dest ds index) "$dest = $ds[index]"]
    ['gt '(gt dest lhs rhs) "$dest = $lhs > $rhs"]
-   ['gte '(gte dest lhs rhs) "$dest = $lhs .>= $rhs"]
-   ['gtim '(gtim dest lhs im) "$dest = $lhs .> im"]
+   ['gte '(gte dest lhs rhs) "$dest = $lhs >= $rhs"]
+   ['gtim '(gtim dest lhs im) "$dest = $lhs > im"]
    ['in '(in dest ds key) "$dest = $ds[$key] using `in`"]
    ['jmp '(jmp offset) "pc += offset"]
    ['jmpif '(jmpif cond offset) "if $cond pc += offset else pc++"]
@@ -41,8 +42,8 @@
    ['ldu '(ldu dest env index) "$dest = envs[env][index]"]
    ['len '(len dest ds) "$dest = length(ds)"]
    ['lt '(lt dest lhs rhs) "$dest = $lhs < $rhs"]
-   ['lte '(lte dest lhs rhs) "$dest = $lhs .<= $rhs"]
-   ['ltim '(ltim dest lhs im) "$dest = $lhs .< im"]
+   ['lte '(lte dest lhs rhs) "$dest = $lhs <= $rhs"]
+   ['ltim '(ltim dest lhs im) "$dest = $lhs < im"]
    ['mkarr '(mkarr dest) "$dest = call(array, args)"]
    ['mkbtp '(mkbtp dest) "$dest = call(tuple/brackets, args)"]
    ['mkbuf '(mkbuf dest) "$dest = call(buffer, args)"]
@@ -79,6 +80,7 @@
    ['sru '(sru dest lhs rhs) "$dest = $lhs >>> $rhs"]
    ['sruim '(sruim dest lhs shamt) "$dest = $lhs >>> shamt"]
    ['sub '(sub dest lhs rhs) "$dest = $lhs - $rhs"]
+   ['subim '(subim dest lhs im) "$dest = $lhs - im"]
    ['tcall '(tcall callee) "Return call($callee, args)"]
    ['tchck '(tchck slot types) "Assert $slot matches types"]])