From 8009359f6eab13016ec89fb14bda3f74a274b80e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 7 Jan 2018 17:15:42 +0100 Subject: [PATCH] Fix bug in struct-ref effects analysis * module/language/cps/effects-analysis.scm (struct-ref): Fix bug in struct-ref effects analysis. --- module/language/cps/effects-analysis.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/cps/effects-analysis.scm b/module/language/cps/effects-analysis.scm index 87c2540a2..e180102c3 100644 --- a/module/language/cps/effects-analysis.scm +++ b/module/language/cps/effects-analysis.scm @@ -407,7 +407,7 @@ the LABELS that are clobbered by the effects of LABEL." ((allocate-struct vt n) (&allocate &struct) &type-check) ((allocate-struct/immediate vt) (&allocate &struct) &type-check) ((make-struct/no-tail vt . _) (&allocate &struct) &type-check) - ((struct-ref s n) (&read-object &vector) &type-check) + ((struct-ref s n) (&read-object &struct) &type-check) ((struct-ref/immediate s) (&read-field &struct param) &type-check) ((struct-set! s n x) (&write-object &struct) &type-check) ((struct-set!/immediate s x) (&write-field &struct param) &type-check)