diff options
author | Thomas White <taw@physics.org> | 2021-01-30 21:29:37 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-01-30 21:29:37 +0100 |
commit | 8cee38ac8e7c6e4c267f908b63886595874f0b63 (patch) | |
tree | 678f6e3d4b764b6a8682dca47c514c42a57cd2fa | |
parent | fc8d00e2eb4d5bdb40cdc58ec70489273d39e04a (diff) |
Add print-state
-rw-r--r-- | guile/starlet/base.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index 967ad45..011f3df 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -51,7 +51,8 @@ selection-hook sel programmer-state - current-value)) + current-value + print-state)) (define-class <fixture-attribute> (<object>) (name @@ -564,3 +565,7 @@ (set! selection (flatten-sublists fixture-list)) (run-hook selection-hook selection)) + + +(define (print-state a) + (print-hash-table (get-state-hash-table a))) |