From dfcf44a02eb1a9759e1d29cd2a33a1f58d122de4 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Tue, 16 Jun 2020 23:18:55 +0200 Subject: Rename functions Avoiding "get" seems to just result in confusion --- guile/nanolight/state.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'guile/nanolight/state.scm') 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) -- cgit v1.2.3