diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-03 12:15:09 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-03 12:15:09 +0100 |
commit | 91fc226e24bea970b5d6814fdceebd3c97c54a28 (patch) | |
tree | 74ec0eea46adbd89bc92547e362d6a211504e967 | |
parent | 1d15832ffc1e46be2d5549c744681cf88776698e (diff) | |
download | guile-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.scm | 4 |
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 |