From c3ee691e9da083a08636b0495182a37ce2e64896 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 13 Nov 2008 16:42:15 +0000 Subject: [PATCH] improved JIT inlining of 'list' svn: r12428 original commit: bac4053c379eee9a19d9aa6ce4ce3e9528e06ca1 --- collects/compiler/decompile.ss | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss index 12075f4119..e541684f17 100644 --- a/collects/compiler/decompile.ss +++ b/collects/compiler/decompile.ss @@ -300,14 +300,17 @@ exact-positive-integer? car cdr caar cadr cdar cddr mcar mcdr unbox vector-length syntax-e - add1 sub1 - abs bitwise-not))] + add1 sub1 - abs bitwise-not + list vector box))] [(3) (memq (car a) '(eq? = <= < >= > bitwise-bit-set? char=? + - * / min max bitwise-and bitwise-ior arithmetic-shift vector-ref string-ref bytes-ref - set-mcar! set-mcdr! cons mcons))] - [(4) (memq (car a) '(vector-set! string-set! bytes-set!))] - [else #f])) + set-mcar! set-mcdr! cons mcons + list vector))] + [(4) (memq (car a) '(vector-set! string-set! bytes-set! + list vector))] + [else (memq (car a) '(list vector))])) (cons '#%in a) a))