diff options
Diffstat (limited to 'guile/nanolight/state.scm')
| -rw-r--r-- | guile/nanolight/state.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/guile/nanolight/state.scm b/guile/nanolight/state.scm index 7752156..f6f0193 100644 --- a/guile/nanolight/state.scm +++ b/guile/nanolight/state.scm @@ -114,15 +114,15 @@ (stable-sort state (lambda (a b) (or (< - (universe (fixture a)) - (universe (fixture b))) + (get-fixture-universe (fixture a)) + (get-fixture-universe (fixture b))) (and (eq? - (universe (fixture a)) - (universe (fixture b))) + (get-fixture-universe (fixture a)) + (get-fixture-universe (fixture b))) (< - (start-addr (fixture a)) - (start-addr (fixture b)))))))) + (get-fixture-start-addr (fixture a)) + (get-fixture-start-addr (fixture b)))))))) (define (print-state st) |