diff options
Diffstat (limited to 'module/language/tree-il/debug.scm')
-rw-r--r-- | module/language/tree-il/debug.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/language/tree-il/debug.scm b/module/language/tree-il/debug.scm index 884f3de9a..a32fc4153 100644 --- a/module/language/tree-il/debug.scm +++ b/module/language/tree-il/debug.scm @@ -215,9 +215,11 @@ (for-each (cut visit <> env) fluids) (for-each (cut visit <> env) vals) (visit body env)))) - (($ <dynwind> src winder body unwinder) + (($ <dynwind> src winder pre body post unwinder) (visit winder env) + (visit pre env) (visit body env) + (visit post env) (visit unwinder env)) (($ <dynref> src fluid) (visit fluid env)) |