diff options
author | Thomas White <taw@physics.org> | 2020-06-16 23:18:55 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-06-16 23:18:55 +0200 |
commit | dfcf44a02eb1a9759e1d29cd2a33a1f58d122de4 (patch) | |
tree | 0ef7a0d61f69f61939fbc6c971010b9bae737fec /guile/nanolight/state.scm | |
parent | 746b0c880ce786ba6ceb900228abbab0eed1dd54 (diff) |
Rename functions
Avoiding "get" seems to just result in confusion
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) |