diff options
author | Thomas White <taw@physics.org> | 2020-06-06 15:45:34 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-06-06 15:45:34 +0200 |
commit | 2382fb2b47c87e574c79f095d62c6523177f66c7 (patch) | |
tree | e816fbaaa7550e6db3841400ffc85c9792381350 /guile/nanolight/state.scm | |
parent | 5e97aba9f9616a2b047dc2cb2ba81c9caa69c19d (diff) |
Remove "get-"
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) |