diff options
Diffstat (limited to 'shell/evaluate.mu')
| -rw-r--r-- | shell/evaluate.mu | 42 |
1 files changed, 6 insertions, 36 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu index fae2519c..a856f7fa 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -149,12 +149,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel var first-ah/ecx: (addr handle cell) <- get in-addr, left var rest-ah/edx: (addr handle cell) <- get in-addr, right var first/eax: (addr cell) <- lookup *first-ah - var first-type/ecx: (addr int) <- get first, type - compare *first-type, 2/symbol - break-if-!= - var sym-data-ah/eax: (addr handle stream byte) <- get first, text-data - var sym-data/eax: (addr stream byte) <- lookup *sym-data-ah - var quote?/eax: boolean <- stream-data-equal? sym-data, "'" + var quote?/eax: boolean <- symbol-equal? first, "'" compare quote?, 0/false break-if-= # @@ -170,12 +165,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel var first-ah/ecx: (addr handle cell) <- get in-addr, left var rest-ah/edx: (addr handle cell) <- get in-addr, right var first/eax: (addr cell) <- lookup *first-ah - var first-type/ecx: (addr int) <- get first, type - compare *first-type, 2/symbol - break-if-!= - var sym-data-ah/eax: (addr handle stream byte) <- get first, text-data - var sym-data/eax: (addr stream byte) <- lookup *sym-data-ah - var def?/eax: boolean <- stream-data-equal? sym-data, "def" + var def?/eax: boolean <- symbol-equal? first, "def" compare def?, 0/false break-if-= # @@ -220,12 +210,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel var first-ah/ecx: (addr handle cell) <- get in-addr, left var rest-ah/edx: (addr handle cell) <- get in-addr, right var first/eax: (addr cell) <- lookup *first-ah - var first-type/ecx: (addr int) <- get first, type - compare *first-type, 2/symbol - break-if-!= - var sym-data-ah/eax: (addr handle stream byte) <- get first, text-data - var sym-data/eax: (addr stream byte) <- lookup *sym-data-ah - var set?/eax: boolean <- stream-data-equal? sym-data, "set" + var set?/eax: boolean <- symbol-equal? first, "set" compare set?, 0/false break-if-= # @@ -263,12 +248,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel var first-ah/ecx: (addr handle cell) <- get in-addr, left var rest-ah/edx: (addr handle cell) <- get in-addr, right var first/eax: (addr cell) <- lookup *first-ah - var first-type/ecx: (addr int) <- get first, type - compare *first-type, 2/symbol - break-if-!= - var sym-data-ah/eax: (addr handle stream byte) <- get first, text-data - var sym-data/eax: (addr stream byte) <- lookup *sym-data-ah - var and?/eax: boolean <- stream-data-equal? sym-data, "and" + var and?/eax: boolean <- symbol-equal? first, "and" compare and?, 0/false break-if-= # @@ -306,12 +286,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel var first-ah/ecx: (addr handle cell) <- get in-addr, left var rest-ah/edx: (addr handle cell) <- get in-addr, right var first/eax: (addr cell) <- lookup *first-ah - var first-type/ecx: (addr int) <- get first, type - compare *first-type, 2/symbol - break-if-!= - var sym-data-ah/eax: (addr handle stream byte) <- get first, text-data - var sym-data/eax: (addr stream byte) <- lookup *sym-data-ah - var or?/eax: boolean <- stream-data-equal? sym-data, "or" + var or?/eax: boolean <- symbol-equal? first, "or" compare or?, 0/false break-if-= # @@ -350,12 +325,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel var first-ah/ecx: (addr handle cell) <- get in-addr, left var rest-ah/edx: (addr handle cell) <- get in-addr, right var first/eax: (addr cell) <- lookup *first-ah - var first-type/ecx: (addr int) <- get first, type - compare *first-type, 2/symbol - break-if-!= - var sym-data-ah/eax: (addr handle stream byte) <- get first, text-data - var sym-data/eax: (addr stream byte) <- lookup *sym-data-ah - var if?/eax: boolean <- stream-data-equal? sym-data, "if" + var if?/eax: boolean <- symbol-equal? first, "if" compare if?, 0/false break-if-= # |