mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-10 05:50:26 +02:00
"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.
This commit is contained in:
parent
1d15832ffc
commit
91fc226e24
1 changed files with 3 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue