remove stepper/private/lazy-highlighting.rkt

This commit is contained in:
Stephen Chang 2011-04-09 13:49:58 -04:00
parent 7f6b8597f3
commit 341ed19e58

View File

@ -1,67 +0,0 @@
#lang scheme/base
(provide (rename-out [table highlight-table]))
; number of steps to skip, where the step to skip has ellipses on lhs
; # of skips depends on # of hidden !'s in fn def in lazy/lazy.rkt
(define
table
(make-immutable-hasheq
'((take . 0)
(caar . 1)
(cadr . 0)
(cdar . 1)
(cddr . 0)
(caaar . 2)
(caadr . 1)
(cadar . 1)
(caddr . 0)
(cdaar . 2)
(cdadr . 1)
(cddar . 1)
(cdddr . 0)
(caaaar . 3)
(caaadr . 2)
(caadar . 2)
(caaddr . 1)
(cadaar . 2)
(cadadr . 1)
(caddar . 1)
(cadddr . 0)
(cdaaar . 3)
(cdaadr . 2)
(cdadar . 2)
(cdaddr . 1)
(cddaar . 2)
(cddadr . 1)
(cdddar . 1)
(cddddr . 0)
(first . 0)
(second . 0)
(third . 0)
(fourth . 0)
(fifth . 0)
(sixth . 0)
(seventh . 0)
(eighth . 0)
(eq? . 0)
(eqv? . 0)
(equal? . 0)
(list? . 0)
(length . 0)
(list-ref . 0)
(list-tail . 0)
(append . 0)
(reverse . 0)
(empty? . 0)
(assoc . 0)
(assq . 0)
(assv . 0)
(cons? . 0)
(remove . 0)
(remq . 0)
(remv . 0)
(member . 0)
(memq . 0)
(memv . 0)
)))