e41ba9c77b
- modify cond for stepper - add support for multiple values in stepper - add inspector to multiple-values struct - hide split-values call in ~define-values in tests/stepper/ - add tests for cond in stepper/private/annotate.rkt - in annotate/top-level, allow arbitrary top-level terms (no error in else case), otherwise exprs like let throws error in stepper/private/ reconstruct.rkt lazy-highlighting.rkt - add support for eq? eqv? equal? lazy fns
51 lines
977 B
Racket
51 lines
977 B
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)
|
|
)))
|