summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-03 12:15:09 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-03 12:15:09 +0100
commit91fc226e24bea970b5d6814fdceebd3c97c54a28 (patch)
tree74ec0eea46adbd89bc92547e362d6a211504e967
parent1d15832ffc1e46be2d5549c744681cf88776698e (diff)
downloadguile-91fc226e24bea970b5d6814fdceebd3c97c54a28.tar.gz
"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.
-rw-r--r--module/language/tree-il/primitives.scm4
1 files changed, 3 insertions, 1 deletions
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<=? 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