.
This commit is contained in:
parent
262290a4e8
commit
126a0390f5
|
@ -557,13 +557,15 @@ fn quote-token? _in: (addr cell) -> _/eax: boolean {
|
||||||
fn open-paren-token? _in: (addr cell) -> _/eax: boolean {
|
fn open-paren-token? _in: (addr cell) -> _/eax: boolean {
|
||||||
var in/eax: (addr cell) <- copy _in
|
var in/eax: (addr cell) <- copy _in
|
||||||
var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
|
var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
|
||||||
var in-data/eax: (addr stream byte) <- lookup *in-data-ah
|
var _in-data/eax: (addr stream byte) <- lookup *in-data-ah
|
||||||
|
var in-data/ecx: (addr stream byte) <- copy _in-data
|
||||||
rewind-stream in-data
|
rewind-stream in-data
|
||||||
var g/eax: grapheme <- read-grapheme in-data
|
var g/eax: grapheme <- read-grapheme in-data
|
||||||
compare g, 0x28/open-paren
|
compare g, 0x28/open-paren
|
||||||
{
|
{
|
||||||
break-if-!=
|
break-if-!=
|
||||||
return 1/true
|
var result/eax: boolean <- stream-empty? in-data
|
||||||
|
return result
|
||||||
}
|
}
|
||||||
return 0/false
|
return 0/false
|
||||||
}
|
}
|
||||||
|
@ -571,13 +573,15 @@ fn open-paren-token? _in: (addr cell) -> _/eax: boolean {
|
||||||
fn close-paren-token? _in: (addr cell) -> _/eax: boolean {
|
fn close-paren-token? _in: (addr cell) -> _/eax: boolean {
|
||||||
var in/eax: (addr cell) <- copy _in
|
var in/eax: (addr cell) <- copy _in
|
||||||
var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
|
var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
|
||||||
var in-data/eax: (addr stream byte) <- lookup *in-data-ah
|
var _in-data/eax: (addr stream byte) <- lookup *in-data-ah
|
||||||
|
var in-data/ecx: (addr stream byte) <- copy _in-data
|
||||||
rewind-stream in-data
|
rewind-stream in-data
|
||||||
var g/eax: grapheme <- read-grapheme in-data
|
var g/eax: grapheme <- read-grapheme in-data
|
||||||
compare g, 0x29/open-paren
|
compare g, 0x29/close-paren
|
||||||
{
|
{
|
||||||
break-if-!=
|
break-if-!=
|
||||||
return 1/true
|
var result/eax: boolean <- stream-empty? in-data
|
||||||
|
return result
|
||||||
}
|
}
|
||||||
return 0/false
|
return 0/false
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user