diff options
| -rw-r--r-- | shell/global.mu | 112 |
1 files changed, 56 insertions, 56 deletions
diff --git a/shell/global.mu b/shell/global.mu index 512e01a0..3f83c70e 100644 --- a/shell/global.mu +++ b/shell/global.mu @@ -450,190 +450,190 @@ fn apply-primitive _f: (addr cell), args-ah: (addr handle cell), out: (addr hand var f-name-ah/ecx: (addr handle array byte) <- get f-value, name var f-name/eax: (addr array byte) <- lookup *f-name-ah { - var is-add?/eax: boolean <- string-equal? f-name, "+" - compare is-add?, 0/false + var add?/eax: boolean <- string-equal? f-name, "+" + compare add?, 0/false break-if-= apply-add args-ah, out, trace return } { - var is-subtract?/eax: boolean <- string-equal? f-name, "-" - compare is-subtract?, 0/false + var subtract?/eax: boolean <- string-equal? f-name, "-" + compare subtract?, 0/false break-if-= apply-subtract args-ah, out, trace return } { - var is-multiply?/eax: boolean <- string-equal? f-name, "*" - compare is-multiply?, 0/false + var multiply?/eax: boolean <- string-equal? f-name, "*" + compare multiply?, 0/false break-if-= apply-multiply args-ah, out, trace return } { - var is-divide?/eax: boolean <- string-equal? f-name, "/" - compare is-divide?, 0/false + var divide?/eax: boolean <- string-equal? f-name, "/" + compare divide?, 0/false break-if-= apply-divide args-ah, out, trace return } { - var is-square-root?/eax: boolean <- string-equal? f-name, "sqrt" - compare is-square-root?, 0/false + var square-root?/eax: boolean <- string-equal? f-name, "sqrt" + compare square-root?, 0/false break-if-= apply-square-root args-ah, out, trace return } { - var is-abs?/eax: boolean <- string-equal? f-name, "abs" - compare is-abs?, 0/false + var abs?/eax: boolean <- string-equal? f-name, "abs" + compare abs?, 0/false break-if-= apply-abs args-ah, out, trace return } { - var is-sgn?/eax: boolean <- string-equal? f-name, "sgn" - compare is-sgn?, 0/false + var sgn?/eax: boolean <- string-equal? f-name, "sgn" + compare sgn?, 0/false break-if-= apply-sgn args-ah, out, trace return } { - var is-car?/eax: boolean <- string-equal? f-name, "car" - compare is-car?, 0/false + var car?/eax: boolean <- string-equal? f-name, "car" + compare car?, 0/false break-if-= apply-car args-ah, out, trace return } { - var is-cdr?/eax: boolean <- string-equal? f-name, "cdr" - compare is-cdr?, 0/false + var cdr?/eax: boolean <- string-equal? f-name, "cdr" + compare cdr?, 0/false break-if-= apply-cdr args-ah, out, trace return } { - var is-cons?/eax: boolean <- string-equal? f-name, "cons" - compare is-cons?, 0/false + var cons?/eax: boolean <- string-equal? f-name, "cons" + compare cons?, 0/false break-if-= apply-cons args-ah, out, trace return } { - var is-structurally-equal?/eax: boolean <- string-equal? f-name, "=" - compare is-structurally-equal?, 0/false + var structurally-equal?/eax: boolean <- string-equal? f-name, "=" + compare structurally-equal?, 0/false break-if-= apply-structurally-equal args-ah, out, trace return } { - var is-lesser?/eax: boolean <- string-equal? f-name, "<" - compare is-lesser?, 0/false + var lesser?/eax: boolean <- string-equal? f-name, "<" + compare lesser?, 0/false break-if-= apply-< args-ah, out, trace return } { - var is-greater?/eax: boolean <- string-equal? f-name, ">" - compare is-greater?, 0/false + var greater?/eax: boolean <- string-equal? f-name, ">" + compare greater?, 0/false break-if-= apply-> args-ah, out, trace return } { - var is-lesser-or-equal?/eax: boolean <- string-equal? f-name, "<=" - compare is-lesser-or-equal?, 0/false + var lesser-or-equal?/eax: boolean <- string-equal? f-name, "<=" + compare lesser-or-equal?, 0/false break-if-= apply-<= args-ah, out, trace return } { - var is-greater-or-equal?/eax: boolean <- string-equal? f-name, ">=" - compare is-greater-or-equal?, 0/false + var greater-or-equal?/eax: boolean <- string-equal? f-name, ">=" + compare greater-or-equal?, 0/false break-if-= apply->= args-ah, out, trace return } { - var is-print?/eax: boolean <- string-equal? f-name, "print" - compare is-print?, 0/false + var print?/eax: boolean <- string-equal? f-name, "print" + compare print?, 0/false break-if-= apply-print args-ah, out, trace return } { - var is-clear?/eax: boolean <- string-equal? f-name, "clear" - compare is-clear?, 0/false + var clear?/eax: boolean <- string-equal? f-name, "clear" + compare clear?, 0/false break-if-= apply-clear args-ah, out, trace return } { - var is-lines?/eax: boolean <- string-equal? f-name, "lines" - compare is-lines?, 0/false + var lines?/eax: boolean <- string-equal? f-name, "lines" + compare lines?, 0/false break-if-= apply-lines args-ah, out, trace return } { - var is-columns?/eax: boolean <- string-equal? f-name, "columns" - compare is-columns?, 0/false + var columns?/eax: boolean <- string-equal? f-name, "columns" + compare columns?, 0/false break-if-= apply-columns args-ah, out, trace return } { - var is-up?/eax: boolean <- string-equal? f-name, "up" - compare is-up?, 0/false + var up?/eax: boolean <- string-equal? f-name, "up" + compare up?, 0/false break-if-= apply-up args-ah, out, trace return } { - var is-down?/eax: boolean <- string-equal? f-name, "down" - compare is-down?, 0/false + var down?/eax: boolean <- string-equal? f-name, "down" + compare down?, 0/false break-if-= apply-down args-ah, out, trace return } { - var is-left?/eax: boolean <- string-equal? f-name, "left" - compare is-left?, 0/false + var left?/eax: boolean <- string-equal? f-name, "left" + compare left?, 0/false break-if-= apply-left args-ah, out, trace return } { - var is-right?/eax: boolean <- string-equal? f-name, "right" - compare is-right?, 0/false + var right?/eax: boolean <- string-equal? f-name, "right" + compare right?, 0/false break-if-= apply-right args-ah, out, trace return } { - var is-cr?/eax: boolean <- string-equal? f-name, "cr" - compare is-cr?, 0/false + var cr?/eax: boolean <- string-equal? f-name, "cr" + compare cr?, 0/false break-if-= apply-cr args-ah, out, trace return } { - var is-pixel?/eax: boolean <- string-equal? f-name, "pixel" - compare is-pixel?, 0/false + var pixel?/eax: boolean <- string-equal? f-name, "pixel" + compare pixel?, 0/false break-if-= apply-pixel args-ah, out, trace return } { - var is-width?/eax: boolean <- string-equal? f-name, "width" - compare is-width?, 0/false + var width?/eax: boolean <- string-equal? f-name, "width" + compare width?, 0/false break-if-= apply-width args-ah, out, trace return } { - var is-height?/eax: boolean <- string-equal? f-name, "height" - compare is-height?, 0/false + var height?/eax: boolean <- string-equal? f-name, "height" + compare height?, 0/false break-if-= apply-height args-ah, out, trace return @@ -646,8 +646,8 @@ fn apply-primitive _f: (addr cell), args-ah: (addr handle cell), out: (addr hand return } { - var is-stream?/eax: boolean <- string-equal? f-name, "stream" - compare is-stream?, 0/false + var stream?/eax: boolean <- string-equal? f-name, "stream" + compare stream?, 0/false break-if-= apply-stream args-ah, out, trace return |