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 /guile/starlet/base.scm | |
| parent | fc8d00e2eb4d5bdb40cdc58ec70489273d39e04a (diff) | |
Add print-state
Diffstat (limited to 'guile/starlet/base.scm')
| -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))) |