5d47c0b49b
- in recon-inner, in called app case
- add other force fns to force case (!!, !list, !!list)
- add other list fns
(list?, length, list-ref, etc)
in stepper/private/lazy-highlighting.rkt
- add various list fns (list?, length, list-ref, etc)
in stepper/private/macro-unwind.rkt
- in unwind-cond, disable check of user-source and user-position
in tests/stepper/
- add test for various list fns
68 lines
1.3 KiB
Racket
68 lines
1.3 KiB
Racket
#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)
|
|
)))
|