update HISTORY for v8.13

racket · May 2, 2024 · df748d8 · df748d8
1 parent 4d58afd
commit df748d8
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/redex-lib/redex/HISTORY.txt b/redex-lib/redex/HISTORY.txt
@@ -1,3 +1,7 @@
+v8.13
+
+  * bug fix
+
 v8.12
 
   * documentation improvements

diff --git a/redex-lib/redex/private/binding-forms.rkt b/redex-lib/redex/private/binding-forms.rkt
@@ -677,6 +677,7 @@ to traverse the whole value at once, rather than one binding form at a time.
       (define maybe-car (if (value-with-spec? redex-val) values car))
       (define maybe-cdr (if (value-with-spec? redex-val) values cdr))
       (define maybe-drop (if (value-with-spec? redex-val) (λ (x y) x) drop))
+      (printf "body ~s\n" body)
       (match body
         ;; I thought that `rename-reference`ing this subterm of the current form was
         ;; going to be a problem: `rename-reference` doesn't have any idea about the