diff options
| author | Arun Isaac | 2024-10-04 15:01:09 +0100 |
|---|---|---|
| committer | Arun Isaac | 2024-10-04 16:56:03 +0100 |
| commit | 4684aa83a64bbd2acf2f8c861d897f2c7c6ce135 (patch) | |
| tree | 3559263464897634341ffd83a10d8ac574f2569e | |
| parent | 618fcf35d69cfc0cbeaf50dd2229697cb09a1c9c (diff) | |
| download | ravanan-4684aa83a64bbd2acf2f8c861d897f2c7c6ce135.tar.gz ravanan-4684aa83a64bbd2acf2f8c861d897f2c7c6ce135.tar.lz ravanan-4684aa83a64bbd2acf2f8c861d897f2c7c6ce135.zip | |
monads: Use write, not display, to print Just values.
* ravanan/work/monads.scm (<maybe>): Use write, not display, to print
Just values.
| -rw-r--r-- | ravanan/work/monads.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ravanan/work/monads.scm b/ravanan/work/monads.scm index 7a2cb11..ccb000b 100644 --- a/ravanan/work/monads.scm +++ b/ravanan/work/monads.scm @@ -65,7 +65,7 @@ (if (maybe-valid? record) (begin (display "[Just " port) - (display (maybe-value record) port) + (write (maybe-value record) port) (display "]" port)) (display "Nothing" port)))) |