diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-10-09 21:38:07 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-10-09 21:38:07 -0700 |
| commit | 29ccb2c2b33dd4b8d628d0499fa46799f6762ddb (patch) | |
| tree | d2a0532ad98409210325ebeadf698fe9b9c25648 /tests | |
| parent | 9a3db7ec38ec3a5e1810d86f67c0bcbe62ba2359 (diff) | |
| download | txr-29ccb2c2b33dd4b8d628d0499fa46799f6762ddb.tar.gz txr-29ccb2c2b33dd4b8d628d0499fa46799f6762ddb.tar.bz2 txr-29ccb2c2b33dd4b8d628d0499fa46799f6762ddb.zip | |
Tweaking expansions of when and until.
* eval.c (me_when): Expand to if if there aren't multiple body forms.
(me_unless): Simplify progn.
* tests/012/struct.tl: Update string representation in struct test case.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/struct.tl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/012/struct.tl b/tests/012/struct.tl index d9ecc325..cc4bd79b 100644 --- a/tests/012/struct.tl +++ b/tests/012/struct.tl @@ -74,11 +74,11 @@ \ '(x y) () (lambda (#:g0004)\n \ \ (let ((#:g0005 (struct-type #:g0004)))\n \ \ (if (static-slot-p #:g0005 'x)\n \ - \ () (progn (slotset #:g0004 'x\n \ - \ 0)))\n \ + \ () (slotset #:g0004 'x\n \ + \ 0))\n \ \ (if (static-slot-p #:g0005 'y)\n \ - \ () (progn (slotset #:g0004 'y\n \ - \ 0)))))\n \ + \ () (slotset #:g0004 'y\n \ + \ 0))))\n \ \ (lambda (#:g0004 #:g0006\n \ \ #:g0007)\n \ \ (slotset #:g0004 'x\n \ |