fix annotation argument in fasl step

original commit: e10716c3c6f456007ddfaee75ad07233b31c33d8
2020-03-07 07:59:16 -07:00 · 2020-03-07 07:59:16 -07:00 · ad7f0b9b57
commit ad7f0b9b57
parent 35e77092f3
1 changed files with 1 additions and 1 deletions
--- a/s/fasl.ss
+++ b/s/fasl.ss
@ -655,7 +655,7 @@
                          (for-each (lambda (x)
                                      (if (eq? 'begin (cdr (eq-hashtable-ref (table-hash t) x #f)))
                                          (proc x p)
-                                          (wrf x p t #t)))
+                                          (wrf x p t (constant annotation-all))))
                                    begins)))
                      (proc p)
                      (extractor))])