Handbook
Glossary
(resolve-registers) ( array registers -- ? )
Vocabulary
gml.parser
Inputs
array
an
object
registers
an
object
Outputs
?
an
object
Definition
USING:
accessors
combinators
gml.runtime
gml.types
kernel
sequences
;
IN:
gml.parser
::
(resolve-registers)
( array registers -- ? )
f
:>
use-registers! array
[
{
{
[
dup
use-registers?
]
[
use-registers!
]
}
{
[
dup
read-register?
]
[
registers
resolve-register
]
}
{
[
dup
exec-register?
]
[
registers
resolve-register
]
}
{
[
dup
write-register?
]
[
registers
resolve-register
]
}
{
[
dup
proc?
]
[
dup
[
use-registers?
]
any?
[
drop
]
[
array>>
registers
(resolve-registers)
drop
]
if
]
}
[
drop
]
}
cond
]
each
use-registers
;