fix bug in field lookup (#700)

This commit is contained in:
water111
2021-07-12 19:29:56 -04:00
committed by GitHub
parent 079f623099
commit 73330302ba
4 changed files with 37 additions and 73 deletions
@@ -16,55 +16,37 @@
;; failed to figure out what this is:
(set!
(-> *generic-foreground-sinks* 0)
(the-as
generic-dma-foreground-sink
(-> *level* level0 foreground-sink-group 0 merc-sink)
)
(-> *level* level0 foreground-sink-group 0 generic-sink)
)
;; failed to figure out what this is:
(set!
(-> *generic-foreground-sinks* 1)
(the-as
generic-dma-foreground-sink
(-> *level* level0 foreground-sink-group 1 merc-sink)
)
(-> *level* level0 foreground-sink-group 1 generic-sink)
)
;; failed to figure out what this is:
(set!
(-> *generic-foreground-sinks* 2)
(the-as
generic-dma-foreground-sink
(-> *level* level1 foreground-sink-group 0 merc-sink)
)
(-> *level* level1 foreground-sink-group 0 generic-sink)
)
;; failed to figure out what this is:
(set!
(-> *generic-foreground-sinks* 3)
(the-as
generic-dma-foreground-sink
(-> *level* level1 foreground-sink-group 1 merc-sink)
)
(-> *level* level1 foreground-sink-group 1 generic-sink)
)
;; failed to figure out what this is:
(set!
(-> *generic-foreground-sinks* 4)
(the-as
generic-dma-foreground-sink
(-> *level* level-default foreground-sink-group 0 merc-sink)
)
(-> *level* level-default foreground-sink-group 0 generic-sink)
)
;; failed to figure out what this is:
(set!
(-> *generic-foreground-sinks* 5)
(the-as
generic-dma-foreground-sink
(-> *level* level-default foreground-sink-group 1 merc-sink)
)
(-> *level* level-default foreground-sink-group 1 generic-sink)
)
;; failed to figure out what this is:
@@ -76,19 +58,13 @@
;; failed to figure out what this is:
(set!
(-> *generic-foreground-sinks* 7)
(the-as
generic-dma-foreground-sink
(-> *level* level0 foreground-sink-group 2 merc-sink)
)
(-> *level* level0 foreground-sink-group 2 generic-sink)
)
;; failed to figure out what this is:
(set!
(-> *generic-foreground-sinks* 8)
(the-as
generic-dma-foreground-sink
(-> *level* level1 foreground-sink-group 2 merc-sink)
)
(-> *level* level1 foreground-sink-group 2 generic-sink)
)
;; definition for function generic-dma-foreground-sink-init