mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

"length" is an interesting primitive

Browse source 
* module/language/tree-il/primitives.scm (*effect-free-primitives*):
  (*interesting-primitive-names*): Add "length", so that we can
  constant-fold it.
This commit is contained in:
Andy Wingo 2013-11-03 12:15:09 +01:00
parent 1d15832ffc
commit 91fc226e24
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/tree-il/primitives.scm
View file

@ -73,6 +73,8 @@
caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr caaaar caaadr caadar caaddr cadaar cadadr caddar cadddr
cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr cdaaar cdaadr cdadar cdaddr cddaar cddadr cdddar cddddr
length
make-vector vector-length vector-ref vector-set! make-vector vector-length vector-ref vector-set!
variable? variable-ref variable-set! variable? variable-ref variable-set!
variable-bound? variable-bound?
@ -165,7 +167,7 @@
char<? char<=? char>=? char>? char<? char<=? char>=? char>?
integer->char char->integer number->string string->number integer->char char->integer number->string string->number
struct-vtable struct-vtable
string-length vector-length length string-length vector-length
;; These all should get expanded out by expand-primitives. ;; These all should get expanded out by expand-primitives.
caar cadr cdar cddr caar cadr cdar cddr
caaar caadr cadar caddr cdaar cdadr cddar cdddr caaar caadr cadar caddr cdaar cdadr cddar cdddr