From 8ed18c93a899a15da868f41f5d284c64227e142d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Wed, 24 Aug 2016 11:42:19 -0400
Subject: signal: Print signals like regular values.

Simply printing the contents of the signal makes signal objects feel
more native when working at the REPL.
---
 sly/signal.scm | 5 ++---
 1 file 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?)
-- 
cgit v1.2.3