summaryrefslogtreecommitdiffstats
path: root/share
diff options
context:
space:
mode:
Diffstat (limited to 'share')
-rw-r--r--share/txr/stdlib/compiler.tl2
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index 8756dba3..ec76f1dd 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -1097,7 +1097,7 @@
,*bfrag.code
,*nfrag.code
(jmp ,lback)
- ,*(if test
+ ,*(if test-p
^(,lskip
,*rfrag.code)))
[reduce-left uni frags nil .fvars]