diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2016-08-24 11:42:19 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2016-08-24 11:43:40 -0400 |
| commit | 8ed18c93a899a15da868f41f5d284c64227e142d (patch) | |
| tree | f72957bf4982558fa3c871fdadf0932219b4b1de | |
| parent | 0fe5a8170dae3e1b118585e3d605461586e6dee7 (diff) | |
signal: Print signals like regular values.
Simply printing the contents of the signal makes signal objects feel
more native when working at the REPL.
| -rw-r--r-- | sly/signal.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/sly/signal.scm b/sly/signal.scm index 70c00ca..c1f16e7 100644 --- a/sly/signal.scm +++ b/sly/signal.scm @@ -1,5 +1,5 @@ ;;; Sly -;;; Copyright (C) 2013, 2014 David Thompson <dthompson2@worcester.edu> +;;; Copyright (C) 2013, 2014, 2016 David Thompson <dthompson2@worcester.edu> ;;; ;;; This program is free software: you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -93,8 +93,7 @@ <signal-box> (lambda (box port) (let ((signal (signal-unbox box))) - (format port "#<signal value: ~a inputs: ~a>" - (%signal-ref signal) (signal-inputs signal))))) + (format port "~a" (%signal-ref signal))))) ;; Alternate spelling of signal-box? for the public API. (define signal? signal-box?) |