diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/ifa.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/ifa.tl b/stdlib/ifa.tl index eaab6f3a..317ef9e7 100644 --- a/stdlib/ifa.tl +++ b/stdlib/ifa.tl @@ -54,7 +54,7 @@ (let* ((btemps (mapcar (ret (gensym)) before-it)) (atemps (mapcar (ret (gensym)) after-it))) ^(let (,*(zip btemps before-it)) - (placelet ((it ,it-form)) + (placelet ((it (read-once ,it-form))) (let (,*(zip atemps after-it)) (if (,sym ,*(if (eq 'dwim sym) ^(,(second test))) ,*btemps it ,*atemps) |