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 8237d6e..6c95c3d 100644 --- a/guile/nanolight/state.scm +++ b/guile/nanolight/state.scm @@ -118,15 +118,15 @@ (stable-sort state (lambda (a b) (or (< - (get-universe (fixture a)) - (get-universe (fixture b))) + (universe (fixture a)) + (universe (fixture b))) (and (eq? - (get-universe (fixture a)) - (get-universe (fixture b))) + (universe (fixture a)) + (universe (fixture b))) (< - (get-start-addr (fixture a)) - (get-start-addr (fixture b)))))))) + (start-addr (fixture a)) + (start-addr (fixture b)))))))) (define (print-state st) |