suzanne.soy/macro-debugger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

New macro stepper option: show one term per step rather than term->term

Browse Source 
svn: r5308

original commit: c5b19a52a94099c8ee0429d8d514218673035fa1
This commit is contained in:
Ryan Culpepper 2007-01-11 00:10:02 +00:00
parent e1f644c03f
commit 8874fe41a0
3 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/macro-debugger/view/cursor.ss
View File

@ -46,10 +46,18 @@
(make-cursor null items)) (make-cursor null items))
(define (cursor:current c) (define (cursor:current c)
(cursor:next c))
(define (cursor:next c)
(let ([suffix (cursor-suffix c)]) (let ([suffix (cursor-suffix c)])
(if (pair? suffix) (if (pair? suffix)
(car suffix) (car suffix)
#f))) #f)))
(define (cursor:prev c)
(let ([prefix (cursor-prefix c)])
(if (pair? prefix)
(car prefix)
#f)))
(define (cursor:move-to-start c) (define (cursor:move-to-start c)
(when (cursor:can-move-previous? c) (when (cursor:can-move-previous? c)

1
collects/macro-debugger/view/interfaces.ss
View File

@ -28,6 +28,7 @@
pref:show-rename-steps? pref:show-rename-steps?
pref:highlight-foci? pref:highlight-foci?
pref:suppress-warnings? pref:suppress-warnings?
pref:one-by-one?
)) ))
;; macro-stepper-config% ;; macro-stepper-config%

2
collects/macro-debugger/view/prefs.ss
View File

@ -30,6 +30,7 @@
(preferences:set-default 'MacroStepper:HighlightFoci? #t boolean?) (preferences:set-default 'MacroStepper:HighlightFoci? #t boolean?)
(preferences:set-default 'MacroStepper:ShowRenameSteps? #f boolean?) (preferences:set-default 'MacroStepper:ShowRenameSteps? #f boolean?)
(preferences:set-default 'MacroStepper:SuppressWarnings? #f boolean?) (preferences:set-default 'MacroStepper:SuppressWarnings? #f boolean?)
(preferences:set-default 'MacroStepper:OneByOne? #f boolean?)
(pref:get/set pref:width MacroStepper:Frame:Width) (pref:get/set pref:width MacroStepper:Frame:Width)
(pref:get/set pref:height MacroStepper:Frame:Height) (pref:get/set pref:height MacroStepper:Frame:Height)
@ -43,6 +44,7 @@
(pref:get/set pref:highlight-foci? MacroStepper:HighlightFoci?) (pref:get/set pref:highlight-foci? MacroStepper:HighlightFoci?)
(pref:get/set pref:show-rename-steps? MacroStepper:ShowRenameSteps?) (pref:get/set pref:show-rename-steps? MacroStepper:ShowRenameSteps?)
(pref:get/set pref:suppress-warnings? MacroStepper:SuppressWarnings?) (pref:get/set pref:suppress-warnings? MacroStepper:SuppressWarnings?)
(pref:get/set pref:one-by-one? MacroStepper:OneByOne?)
)) ))
) )