49fd1fb0e0
- in recon-value, add cases to handle list and cons - in recon-inner, in app called case, add case to handle lazy list fns that contain unannotated !'s (ie cadr, cdddr, second, third, etc) in stepper/private/model.rkt - add highlight-stack - in send-step, add various skip conditions when lhs = ellipses add file stepper/private/lazy-highlighting.rkt in tests/stepper/through-tests.rkt tests/stepper/automatic-tests.rkt - add tests for list and cons fns
46 lines
887 B
Racket
46 lines
887 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
|
|
'((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)
|
|
(second . 0)
|
|
(third . 0)
|
|
(fourth . 0)
|
|
(fifth . 0)
|
|
(sixth . 0)
|
|
(seventh . 0)
|
|
(eighth . 0)
|
|
)))
|