From 8874fe41a07a57becb02a004cab26ece115a7bec Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Thu, 11 Jan 2007 00:10:02 +0000
Subject: [PATCH] New macro stepper option: show one term per step rather than
 term->term

svn: r5308

original commit: c5b19a52a94099c8ee0429d8d514218673035fa1
---
 collects/macro-debugger/view/cursor.ss     | 10 +++++++++-
 collects/macro-debugger/view/interfaces.ss |  1 +
 collects/macro-debugger/view/prefs.ss      |  2 ++
 3 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/collects/macro-debugger/view/cursor.ss b/collects/macro-debugger/view/cursor.ss
index bd3743e..62d0872 100644
--- a/collects/macro-debugger/view/cursor.ss
+++ b/collects/macro-debugger/view/cursor.ss
@@ -46,10 +46,18 @@
     (make-cursor null items))
 
   (define (cursor:current c)
+    (cursor:next c))
+
+  (define (cursor:next c)
     (let ([suffix (cursor-suffix c)])
       (if (pair? suffix)
           (car suffix)
           #f)))
+  (define (cursor:prev c)
+    (let ([prefix (cursor-prefix c)])
+      (if (pair? prefix)
+          (car prefix)
+          #f)))
 
   (define (cursor:move-to-start c)
     (when (cursor:can-move-previous? c)
@@ -83,4 +91,4 @@
   
   
   
-  )
\ No newline at end of file
+  )
diff --git a/collects/macro-debugger/view/interfaces.ss b/collects/macro-debugger/view/interfaces.ss
index 16698a2..dc6890e 100644
--- a/collects/macro-debugger/view/interfaces.ss
+++ b/collects/macro-debugger/view/interfaces.ss
@@ -28,6 +28,7 @@
      pref:show-rename-steps?
      pref:highlight-foci?
      pref:suppress-warnings?
+     pref:one-by-one?
      ))
 
   ;; macro-stepper-config%
diff --git a/collects/macro-debugger/view/prefs.ss b/collects/macro-debugger/view/prefs.ss
index 391b741..5c7b070 100644
--- a/collects/macro-debugger/view/prefs.ss
+++ b/collects/macro-debugger/view/prefs.ss
@@ -30,6 +30,7 @@
       (preferences:set-default 'MacroStepper:HighlightFoci? #t boolean?)
       (preferences:set-default 'MacroStepper:ShowRenameSteps? #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:height MacroStepper:Frame:Height)
@@ -43,6 +44,7 @@
       (pref:get/set pref:highlight-foci? MacroStepper:HighlightFoci?)
       (pref:get/set pref:show-rename-steps? MacroStepper:ShowRenameSteps?)
       (pref:get/set pref:suppress-warnings? MacroStepper:SuppressWarnings?)
+      (pref:get/set pref:one-by-one? MacroStepper:OneByOne?)
       
       ))
   )