From 91fc226e24bea970b5d6814fdceebd3c97c54a28 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 3 Nov 2013 12:15:09 +0100 Subject: [PATCH] "length" is an interesting primitive * module/language/tree-il/primitives.scm (*effect-free-primitives*): (*interesting-primitive-names*): Add "length", so that we can constant-fold it. --- module/language/tree-il/primitives.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm index 46bc4ebec..5e4f3880e 100644 --- a/module/language/tree-il/primitives.scm +++ b/module/language/tree-il/primitives.scm @@ -73,6 +73,8 @@ caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr + length + make-vector vector-length vector-ref vector-set! variable? variable-ref variable-set! variable-bound? @@ -165,7 +167,7 @@ char=? char>? integer->char char->integer number->string string->number struct-vtable - string-length vector-length + 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