From ba9f9f0d639ee5063c5f28a1e9c571d3b498dcff Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 28 Oct 2011 11:19:01 +0200 Subject: [PATCH] add vector-length primitive * module/language/tree-il/primitives.scm (*interesting-primitive-names*, *effect-free-primitives*): Recognize vector-length as an effect-free primitive. --- module/language/tree-il/primitives.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm index 445bdc1f6..2f03ab7b9 100644 --- a/module/language/tree-il/primitives.scm +++ b/module/language/tree-il/primitives.scm @@ -60,7 +60,7 @@ caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr - vector-ref vector-set! + vector-length vector-ref vector-set! variable-ref variable-set! variable-bound? @@ -141,7 +141,7 @@ + * - / 1- 1+ quotient remainder modulo not pair? null? list? symbol? vector? struct? string? - string-length + string-length vector-length ;; These all should get expanded out by expand-primitives!. caar cadr cdar cddr caaar caadr cadar caddr cdaar cdadr cddar cdddr